File Coverage

blib/lib/Class/Easy/Log/Tie.pm

Criterion	Covered	Total	%
statement	16	26	61.5
branch	5	6	83.3
condition			n/a
subroutine	5	14	35.7
pod	0	1	0.0
total	26	47	55.3

package Class::Easy::Log::Tie;

sub print_stderr {
	my $this   = shift;
	my $stderr = $this->{STDERR};

	if (!defined $stderr) {
		# enabled, but no logging
	} elsif (ref($stderr) eq 'SCALAR') {
		$$stderr .= $_[0] ;
	} elsif (ref($stderr) eq 'CODE') {
		&$stderr($_[0]);
	} else {
		print $stderr $_[0];
	}

	return 1;
}

sub TIESCALAR {
	my $class = shift;
	bless ({STDERR => $_[0]}, $class);
}

sub TIEHANDLE {
	my $class = shift;
	bless ({STDERR => $_[0]}, $class);
}

sub STORE {
	my $this = shift;

	$this->print_stderr (join ("", @_));
	return 1;
}


sub PRINT {
	my $this = shift;

	$this->print_stderr (join ("", @_));
	return 1;
}

sub PRINTF {
	&PRINT ($_[0], sprintf ($_[1], @_[2..$#_]));
}

sub READ {}
sub FETCH {}
sub READLINE {}
sub GETC {}
sub WRITE {}
sub FILENO {}
sub CLOSE {}
sub DESTROY {}

1;