before 'wafer' => sub{
    my $self = shift;
    if ( ! $self->_wafer_parse_complete ){ $self->_wafer_parse };
    
};


##</code><code>##

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.

##</code><code>##

sub _wafer_parse {
    my $self = shift;
    
    open my $FILE, "<", $self->{file};

    while ( <$FILE> ){};
    close $FILE;
}