package IO_Dumper;
use strict;
use warnings;
use IO::All -base;
our @EXPORT = 'io';
sub io { return IO_Dumper->new(@_) };
package IO::All::Filesys;
use Data::Dumper;
sub dump {
my $self = shift;
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Sortkeys = 1;
$self->print(Data::Dumper::Dumper(@_));
return $self;
}
1;