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