use 5.010; use Math::BigInt; # quite big!! my $seven = Math::BigInt->new('7'); # $seven cannot "speak", so this warns eval { $seven->speak } or warn $@; { package Math::BigInt::Speaker; our @ISA = qw(Math::BigInt); use Scalar::Util qw(blessed); use Carp qw(confess); sub upgrade { my ($class, $instance) = @_; confess "can only upgrade Math::BigInt objects" unless blessed $instance && $instance->isa('Math::BigInt'); bless $instance => $class; } sub speak { CORE::say($_[0]); } } # Swaps $seven into our new class. Math::BigInt::Speaker->upgrade($seven); # $seven can now "speak" eval { $seven->speak } or warn $@; #### use 5.010; use Math::BigInt; use Moose (); # quite big!! my $seven = Math::BigInt->new('7'); # $seven cannot "speak", so this warns eval { $seven->speak } or warn $@; my $speaker = Moose::Meta::Role->create_anon_role( methods => { speak => sub { CORE::say($_[0]) }, }, ); Moose::Util::apply_all_roles($seven, $speaker); # $seven can now "speak" eval { $seven->speak } or warn $@;