X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=8aa22b571fd4529ba032b5fc2e49b4d3378a77d2;hp=3eef06bb524840ce368a7fa0cdb77e65eef599dd;hb=8e64d0fa5da64639074f77d3da9b2f7aa20cce93;hpb=fce211ae5c3943a1b041b9c0985c4daf189fb8a8 diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index 3eef06b..8aa22b5 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -2,6 +2,8 @@ package Mouse::Object; use strict; use warnings; +use Mouse::Util; + sub new { my $class = shift; @@ -69,7 +71,7 @@ sub dump { require 'Data/Dumper.pm'; # we don't want to create its namespace my $dd = Data::Dumper->new([$self]); - $dd->Maxdepth($maxdepth || 1); + $dd->Maxdepth(defined($maxdepth) ? $maxdepth : 1); return $dd->Dump(); }