Select Code to Download

package Hello;

...
}

1;

package Greeting;

...

__PACKAGE__->meta->make_immutable;
1;

package Greeting2;

...

__PACKAGE__->meta->make_immutable;
1;

#!/usr/bin/perl -w                                                    
+                                                                     
+                                              

...

print $greeting, "\t", $greeting->does('Hello') ? "does Hello\n" : "do
+es not do Hello\n";
$greeting->hello_world();