| blib/lib/Tie/STDOUT.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 6 | 50.0 |
| line | l | !l | condition |
|---|---|---|---|
| 118 | 1 | 0 | $params{'print'} || sub { print @_; } |
| 1 | 0 | $params{'syswrite'} || sub { my($buf, $len, $offset) = @_; syswrite STDOUT, $buf, $len, defined $offset ? $offset : 0; } | |
| 121 | 1 | 0 | $params{'printf'} || sub { $self->{'print'}->(sprintf($_[0], @_[1 .. $#_])); } |