Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl
                                                                      
+          
package SomeClass;
...
my $thing = SomeClass->new;
$thing->name('TestObj');
print "Implicit: my name is $thing\n";

Select or download this

$VAR1 = [
          bless( {}, 'SomeClass' ),
          'TestObj'
...
          ''
        ];
Implicit: my name is