package MyParent;
use strict;
no strict "refs";
use Carp qw(carp croak);

our $VERSION = .01;

sub new {
    my $class = shift;
    bless {
        something => "foo",
    }, $class;
    return $self;
}


sub parent_nifty_method1 {
   print $_[0]->{something};
}

sub parent_nifty_method2 {
   ... pah ...
}