From 91ff8883bd8bf7642d8d986e1455692b1edd36c3 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Sat, 10 Apr 2021 11:11:12 +0100
Subject: more docs

---
 challenge-107/james-smith/perl/ch-2.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/challenge-107/james-smith/perl/ch-2.pl b/challenge-107/james-smith/perl/ch-2.pl
index bf00dba212..edaefe1661 100644
--- a/challenge-107/james-smith/perl/ch-2.pl
+++ b/challenge-107/james-smith/perl/ch-2.pl
@@ -22,4 +22,17 @@ use     Calc_Use;
 say join "\n  ",'Calc_Require:', sort keys %Calc_Require::;
 say '';
 say join "\n  ",'Calc_Use:',     sort keys %Calc_Use::;
+say '';
+
+## If we want to hide the "fake" methods (import/BEGIN) we
+## can use grep/can to do so
+
+say join "\n  ",'Calc_Require:', sort
+                                 grep {Calc_Require->can($_)}
+                                 keys %Calc_Require::;
+say '';
+say join "\n  ",'Calc_Use:',     sort
+                                 grep {Calc_Use->can($_)}
+                                 keys %Calc_Use::;
+say '';
 
-- 
cgit