view release on metacpan or  search on metacpan

lib/Log/Report/Minimal.pm  view on Meta::CPAN

sub failure(@) {_report {}, FAILURE => @_}
sub panic(@)   {_report {}, PANIC   => @_}

#--------------------

sub __($) { $_[0] }



sub __x($@)
{	@_%2 or error __x"even length parameter list for __x at {where}", where => join(' line ', (caller)[1,2]);
	_interpolate @_, _expand => 1;
}


sub __n($$$@)
{	my ($single, $plural, $count) = (shift, shift, shift);
	_interpolate +($count==1 ? $single : $plural), _count => $count, @_;
}

lib/Log/Report/Optional.pm  view on Meta::CPAN

			if $version && $version le '1.00';
	}
	else
	{	require Log::Report::Minimal;
		$supported = 'Log::Report::Minimal';
	}
}

sub import(@)
{	my $class = shift;
	push @used_by, (caller)[0];
	$supported->import('+1', @_);
}

#--------------------

sub usedBy() { @used_by }

1;