sub dump {
my $self = shift;
require Data::Dumper;
local $Data::Dumper::Maxdepth = shift if @_;
Data::Dumper::Dumper $self;
}
1;
| [reply] [d/l] |
| [reply] |
my $foo = Foo->new;
my $meta_instance = Foo->meta->get_meta_instance;
print join "\n" => map { "$_ => " . $meta_instance->get_slot_value($fo
+o, $_) } $meta_instance->get_all_slots;
Or, because Moose deep down is just plain old HASH based perl objects you can just do
print Dumper $foo;
Or as the above poster pointed out you can use the (simplistic but useful) Moose::Object::dump method
print $foo->dump;
But all that said, Object::InsideOut also provides a dump method that by default will do the right thing too.
| [reply] [d/l] [select] |
I did use data Dumper on it and Maxdepth didn't reveal anything extra. here is what the dump is showing:
$VAR1 = {
'TimeEstimated' => '',
'Status' => 'open',
'Queue' => 'q1',
'AdminCc' => '',
'Requestors' => 'log@log.com',
'Started' => 'Thu Feb 19 1:02:58 2009',
'InitialPriority' => '40',
'Starts' => 'Not set',
'TimeWorked' => '',
'id' => 'ticket/2',
'Told' => 'Not set',
'Cc' => '',
'Subject' => 'test ticket',
'FinalPriority' => '90',
'TimeLeft' => '',
'Creator' => 'guy',
'Owner' => 'guy',
'Resolved' => 'Not set',
'Created' => 'Tue Feb 17 13:22:11 2009',
'Priority' => '42',
'Due' => 'Not set'
}
| [reply] |
MIght be prudent to ask on the RT Mailing list: rt-users@lists.bestpractical.com
| [reply] |