--- trunk/lib/Frey.pm 2008/12/10 20:27:56 801 +++ trunk/lib/Frey.pm 2008/12/17 18:00:15 872 @@ -5,8 +5,8 @@ use Data::Dump qw//; sub dump { - my ($self,$data) = @_; - Data::Dump::dump( $data ); + my $self = shift; + Data::Dump::dump( @_ ); } has 'debug' => (