use strict; package Alpha; our $language = "US-English"; $Alpha::first = "Alpha"; sub SayHello {"hello from package Alpha\n"}; sub SayBye {"Goodbye.\n"} sub GreetByName {"Well Hello $_[0].\n";} package Bravo; our @ISA = qw(Alpha); $Bravo::first = "Bravo"; sub SayHello {"hello from package Bravo\n"}; package main; ### begin_: get stuff from A print("$Alpha::first\n"); print Alpha::SayHello(); print("$language\n"); print Alpha::SayBye(); print Alpha::GreetByName('Dolly'); ### works as expected print Alpha->GreetByName('Dolly'); ### D'OH! not what we expected print "\n---------------------\n"; ### begin_: get stuff from Bravo print("$Bravo::first\n"); print Bravo::SayHello(); print("$language\n"); print Bravo->SayBye(); ### works as expected print Bravo->GreetByName('Billy'); ### D'OH! 'Hello Bravo' print "\n---------------------\n"; 1; __END__
In reply to reworked code but still doesnt work ...
by Anonymous Monk
in thread ISA with packages ... A barebones minimal example
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |