https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=34828
--- Comment #3 from David Cook <[email protected]> --- #!/usr/bin/perl use strict; use warnings; my $biblio = Local::Biblio->new({type => 'Test'}); warn $biblio; warn $biblio->extractor; warn $biblio->extractor->awesome; package Local::Biblio; sub new { my ($class,$args) = @_; $args = {} unless $args; my $self = bless($args,$class); return $self; } sub extractor { my ($self) = @_; my $type = $self->{type}; return "Local::Extractor::$type"; } package Local::Extractor; sub new { my ($class) = @_; my $self = {}; return bless $self, $class; } package Local::Extractor::Test; sub awesome { my ($class,$args) = @_; return "$class == awesome"; } 1; -- You are receiving this mail because: You are watching all bug changes. You are the assignee for the bug. _______________________________________________ Koha-bugs mailing list [email protected] https://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-bugs website : http://www.koha-community.org/ git : http://git.koha-community.org/ bugs : http://bugs.koha-community.org/
