https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=34828 --- Comment #3 from David Cook <dcook@prosentient.com.au> --- #!/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.