Help for this page
sub flux { my $class = ref shift; my $fh = do { ... }; return "A-flux: " . scalar <$fh>; }
#!/usr/bin/perl use warnings; use strict; ... print " ", $b->flux(); print "Ok\n";
package a344569; use strict; ... This is package A This is package A This is package A
package b344569; @ISA = ('a344569'); ... This is package B This is package B This is package B
[johnsca@cory tmp]$ ./344569.pl A: A-foo: This is package A ... B-bar: This is package B A-flux: This is package B Ok
www.com | www.net | www.org
No recent polls found