before 'wafer' => sub{ my $self = shift; if ( ! $self->_wafer_parse_complete ){ $self->_wafer_parse }; }; #### Use of uninitialized value in subroutine entry at Class/MOP/Method/Wrapped.pm line 47 Can't use string ("") as a subroutine ref while "strict refs" in use at Class/MOP/Method/Wrapped.pm line 47. #### sub _wafer_parse { my $self = shift; open my $FILE, "<", $self->{file}; while ( <$FILE> ){}; close $FILE; }