File Coverage

blib/lib/overload/x.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	39	39	100.0

package overload::x;
use 5.006; use strict; use warnings; our $VERSION = '0.102';
use base 'Import::Export';
use Clone qw(clone);

our %EX = (
	n => [qw/all/],
	x => [qw/all/]
);

use overload
	'x' => \&x;

sub n {
	my $n = shift; # \shift is really broken AND has varying behaviour depending on which OS you're using apparently
	return bless \$n, __PACKAGE__;
}

sub x {
	my ($times, $obj) = @_;
	my @times = map {
		ref $obj ? clone($obj) : $obj
	} 1 .. (ref $times ? $$times : $times); # IN list context this counts which suckkks...
	wantarray ? @times : \@times;
}

1;

__END__