Select Code to Download

package OurClass;
use Badger::Class
    base        => 'Badger::Base',
...
        }
    },
;;;;

package OurClass;
use parent 'Badger::Base';
...
    my $self = shift;
    print $self->arg1, "\n", $self->arg2, "\n";
}

$ wc OurClass.pm
 11  32 271 OurClass.pm

 package OurClass;
use Badger::Class
    base        => 'Badger::Base',
...
    my $self = shift;
    print $self->arg1, "\n", $self->arg2, "\n";
}