Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

warn "can dd: ",pp $obj->can("dd");     # available
$obj->dd([1,2,3]);                      # will be executed
  2. or download this
    [["is bar"], 0] at d:/exp/t_import_inheritance.pl line 17.
    Bar::bar(Bar=HASH(0x2654bb0), 0) called at d:/exp/t_import_inherit
+ance.pl line 42
can dd: sub { ... } at d:/exp/t_import_inheritance.pl line 44.
AUTOLOAD Bar::DESTROY at d:/exp/t_import_inheritance.pl line 27.
(bless({ args => ["is bar"] }, "Bar"), [1, 2, 3])