Subclassing non-Moose classes example 1 - From http://blogs.perl.org/users/mark_a_stratman/2011/03/subclassing-tricky-non-moose-classes-constructor-problems.html

Animal1.pm

# NOTE: This is simply an example of a legacy blessed-hash object. 
#       I do not recommend using it.
package Animal1;
use strict;

sub new {
	my $class = shift;
	my $self = shift;
	$self = {} unless $self && ref $self eq 'HASH';
	bless($self, $class);
	return $self;
}

sub name {
	my $self = shift;
	if (@_) { $self->{name} = shift }
	return $self->{name};
}

1;

Camel.pm

package Camel;
use Moose;
use MooseX::NonMoose;
extends 'Animal1';

has 'humps' => ( is  => 'ro', isa => 'Num' );

no Moose;
__PACKAGE__->meta->make_immutable;

example1.pl

#!/usr/bin/perl
use Modern::Perl;
use Camel;

my $c = Camel->new({ name => "Samuel Camel", humps => 2 });
say $c->name, " has ", $c->humps, " humps";