perlquestion
jandrew
<p>I have been searching unsuccessfully for a way to change the class name of a Moose instance. Most specifically when I am composing Moose classes on the fly using [https://metacpan.org/module/Moose::Util|Moose::Util] 'with_traits'. Any helpful suggestions are appreciated.</p>
<p>The initial use case for me is to make the confess output from Carp more readable. I have included demonstration code below.</p>
<readmore>
<c>
package MyClass;
use Moose;
has 'name' => (
is => 'ro',
writer => 'set_name',
predicate => 'has_name',
);
no Moose;
__PACKAGE__->meta->make_immutable;
package Respect;
use Moose::Role;
use Carp qw( cluck );
sub get_respectful_name{
my ( $self, ) = @_;
if( $self->has_name ){
return $self->name . " - San\n";
}else{
cluck "No name is available";
return undef
}
}
no Moose::Role;
use Moose::Util qw( with_traits );
use Smart::Comments '###';
my $business_associate = with_traits(
'MyClass',
(
'Respect',
),
)->new();
print "Hello " . $business_associate->get_respectful_name . "\n";
$business_associate->set_name( 'Miyagi' );
print "Hello " . $business_associate->get_respectful_name . "\n";
1;
</c>
<p>The output is as follows<p>
<c>
No name is available at MooseClassName.pl line 22
Respect::get_respectful_name
Moose::Meta::Class::__ANON__::SERIAL::1=
HASH(0x3591540)') called at MooseClassName.pl
line 39
Use of uninitialized value in concatenation (.) or string at
MooseClassName.pl line 39.
Hello
Hello Miyagi - San
</c>
<p>The goal would be to set -Moose::Meta::Class::__ANON__::SERIAL::1- to something more human readable.</p>
</readmore>
<p>It seems there might be other use cases for this but as a minimum the 'meta' capabilities of Moose have spoiled me into believing that all information about an instance is accessible and mutable as needed. I just can't seem to figure out how.</p>
<p><b>Update:</b> spelling corrections</p>