diff options
author | Chad Granum <exodist7@gmail.com> | 2016-01-24 14:20:37 -0800 |
---|---|---|
committer | Chad Granum <exodist7@gmail.com> | 2016-01-24 14:20:37 -0800 |
commit | 039d7f24a349398841b58d393f6f9df6bb574bb4 (patch) | |
tree | ecb413c9a68668cfeac7c5195a20f37f701b76fc | |
parent | b4ee7f2d6a1f360e19722b6061390c0327c71812 (diff) |
Remove leftover garbage after __END__ in test
-rw-r--r-- | t/units.t | 32 |
1 files changed, 0 insertions, 32 deletions
@@ -1028,35 +1028,3 @@ subtest get_one => sub { }; done_testing; - -__END__ - -sub get_list { - my $proto = shift; - my @caller = caller(1); - - my $self = ref($proto) ? $proto : $proto->new( - from => shift(@_), - caller => \@caller, - ); - - my @result; - $self->do_import($caller[0], @_, sub { push @result => $_[1] }); - return @result; -} - -sub get_one { - my $proto = shift; - my @caller = caller(1); - - my $self = ref($proto) ? $proto : $proto->new( - from => shift(@_), - caller => \@caller, - ); - - my $result; - $self->do_import($caller[0], @_, sub { $result = $_[1] }); - return $result; -} - - |