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

Animal2.pm

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

sub new {
	my $class = shift;
	my $self  = {};
	$self->{_name} = shift;
	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 'Animal2';

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

sub FOREIGNBUILDARGS {
    my $class = shift;
    # We expect a hashref with 'name' and 'humps'.
    my $args = shift;

    # Give Animal2 what it wants: just the name, and nothing else.
    return $args->{name};
}

no Moose;
__PACKAGE__->meta->make_immutable;

example2_1.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";