Help for this page

Select Code to Download


  1. or download this
    pointo1d@unforgiven:~/workspace/SVC-ArgsParser$ perl -Mstrict -we 'sub
+ can_it { $_[0]->can(qw/can/) } my $f = qw/fred/; $f->can(qw/isa/); c
+an_it(qw/fred/)'
pointo1d@unforgiven:~/workspace/SVC-ArgsParser$
  2. or download this
    perl -MO=Deparse -we 'use strict ; sub can_it { $_[0]->can(qw/can/) } 
+my $f = qw/fred/; $f->can(qw/isa/); can_it(qw/fred/)'
BEGIN { $^W = 1; }
...
$f->can('isa');
can_it 'fred';
-e syntax OK