view release on metacpan or  search on metacpan

t/24-ops.t  view on Meta::CPAN

 [ sub { -f $0, -r $0 }, 2 ],

 [ sub { return caller 0 },  sub { my @a = caller 0; scalar @a }->() ],
 [ sub { return localtime }, do { my @a = localtime; scalar @a } ],
 [ sub { gmtime },           do { my @a = gmtime; scalar @a } ],

 [ sub { each %h }, { 0 => 0.5, 2 => 0.5 } ],
 [ sub { stat $0 }, { 0 => 0.5, 13 => 0.5 } ],

 [ sub { do { getpwnam 'root' } },            { 0 => 0.5, 10 => 0.5 } ],
 [ sub { 1; getpwuid '0' },                   { 0 => 0.5, 10 => 0.5 } ],
 [ sub { eval { return getpwent } },          { 0 => 0.5, 10 => 0.5 } ],

 [ sub { do { getgrnam 'root' } },            { 0 => 0.5, 4 => 0.5 } ],
 [ sub { 1; getgrgid '0' },                   { 0 => 0.5, 4 => 0.5 } ],
 [ sub { eval { return getgrent } },          { 0 => 0.5, 4 => 0.5 } ],

 [ sub { do { gethostbyname 'localhost' } },  'list' ],
 [ sub { 1; gethostbyaddr '', '' },           'list' ],
 [ sub { eval { return gethostent } },        'list' ],