To use "class" instead of "package"

class.pm

package class;
use strict;
use warnings;

sub import {
    no strict 'refs';

    my $class = caller;

    *{"$class\::class"} = sub {
        my $package = shift(@_);

        # "new" method is created by default.
        *{"$package\::new"} = sub {
            my ($class, @args) = @_;
            return bless { @args }, $class;
        };

        while (@_) {
            my $subname    = shift(@_);
            my $subroutine = shift(@_);
            *{"$package\::$subname"} = $subroutine;
        }
    };
}

1;