Repository: lucy-clownfish Updated Branches: refs/heads/master fa9b77b93 -> 357c592be
Remove ancient debugging aid `kdump`. This routine is just a slightly nicer version of `warn Dumper(ARG)` and doesn't belong in Clownfish. Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/357c592b Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/357c592b Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/357c592b Branch: refs/heads/master Commit: 357c592be6a42679bfad1c827705f8222e5d8ef0 Parents: fa9b77b Author: Marvin Humphrey <[email protected]> Authored: Tue Apr 28 07:43:16 2015 -0700 Committer: Marvin Humphrey <[email protected]> Committed: Tue Apr 28 07:43:16 2015 -0700 ---------------------------------------------------------------------- runtime/perl/lib/Clownfish.pm | 9 --------- 1 file changed, 9 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/357c592b/runtime/perl/lib/Clownfish.pm ---------------------------------------------------------------------- diff --git a/runtime/perl/lib/Clownfish.pm b/runtime/perl/lib/Clownfish.pm index 51eca77..b08687d 100644 --- a/runtime/perl/lib/Clownfish.pm +++ b/runtime/perl/lib/Clownfish.pm @@ -28,7 +28,6 @@ BEGIN { our @EXPORT_OK = qw( to_clownfish to_perl - kdump ); } @@ -44,14 +43,6 @@ BEGIN { bootstrap Clownfish '0.4.0'; } -sub kdump { - require Data::Dumper; - my $kdumper = Data::Dumper->new( [@_] ); - $kdumper->Sortkeys( sub { return [ sort keys %{ $_[0] } ] } ); - $kdumper->Indent(1); - warn $kdumper->Dump; -} - sub error {$Clownfish::Err::error} {
