File: stat.t

package info (click to toggle)
libio-callback-perl 2.00-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 248 kB
  • sloc: perl: 389; makefile: 2; sh: 1
file content (14 lines) | stat: -rw-r--r-- 235 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings FATAL => 'all';
use Test::More tests => 1;
use IO::Callback;

my $count = 0;
my $fh = 'IO::Callback'->new( '<', sub {
	return if ++$count > 10;
	return "foo\n";
}, [] );

my @stat = $fh->stat;

is $stat[7], 0;