File Coverage

lib/Perlmazing/Perlmazing/pl.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	13	20	65.0
condition	4	6	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	50	60	83.3

use strict;
use warnings;
use Perlmazing;

sub main {
	my $offset = 0;
	(@_) = ($_) if not @_ and defined $_;
	if (not defined wantarray) {
		foreach my $i (@_) {
			no warnings;
			defined($i) ? print "$i\n" : print "\n";
		}
		print "\n" if not @_;
	} elsif (defined wantarray and not wantarray) {
		my $res;
		foreach my $i (@_) {
			$res .= defined($i) ? "$i\n" : "\n";
		}
		return "\n" if not @_;
		return $res;
	} elsif (wantarray) {
		my @res;
		foreach my $i (@_) {
			push @res, defined($i) ? "$i\n" : "\n";
		}
		return "\n" if not @_;
		return @res;
	}
}

1;