File Coverage

blib/lib/Data/Dumper/GUI.pm

Criterion	Covered	Total	%
statement	14	25	56.0
branch	0	6	0.0
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	21	40	52.5

package Data::Dumper::GUI;

use 5.010001;
use strict;
use warnings;

BEGIN {
	$Data::Dumper::GUI::AUTHORITY = 'cpan:TOBYINK';
	$Data::Dumper::GUI::VERSION   = '0.006';
}

use parent qw( Exporter::Tiny Data::Dumper );
our @EXPORT = qw(Dumper);

sub Dump {
	my $class = shift;
	my ($items, $vars) = ref($class) ? ($class->{todump}, $class->{names}) : @_;

	require ddGUI::Window;
	my $window = 'ddGUI::Window'->new(
		title  => 'ddGUI',
		items  => $items,
		vars   => $vars,
	);
	$window->execute;

	return $class->Data::Dumper::Dump(@_) if defined wantarray;
}

sub Dumper {
	my @items = @_;

	require ddGUI::Window;
	my $window = 'ddGUI::Window'->new(
		title  => 'ddGUI',
		items  => \@items,
	);
	$window->execute;

	return Data::Dumper::Dumper(@items) if defined wantarray;
}

1;

__END__