package MyPackage;
use strict;
use warnings;

sub new
{
   my $class = shift;
   $class eq __PACKAGE__ or die "oops: ctor unexpected '$class'";
   my $name  = shift;
   print "in ctor: '$class' (name=$name)\n";
   my $self  = {};
   $self->{NAME} = $name;
   bless $self, $class;
   return $self;
}

sub some_instance_method
{
   my $self = shift;
   my $param1 = shift;
   print "in some_instance_method: $self '$param1'\n";
   return $self->{NAME};
}

sub some_class_method
{
   my $class = shift;
   my $param1 = shift;
   print "in some_class_method: '$class' ($param1)\n";
   $class eq __PACKAGE__ or die "oops: unexpected '$class'";
   return "hello from some class method";
}

sub some_utility_method
{
   my $param1 = shift;
   print "in some_utility_method: ($param1)\n";
   return "hello from some utility method";
}

1;