view release on metacpan or  search on metacpan

t/95benchmark-fields.t  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
BEGIN {
   eval { require Object::Pad::FieldAttr::Checked;
          Object::Pad::FieldAttr::Checked->VERSION( '0.10' ) } or
      plan skip_all => "Object::Pad::FieldAttr::Checked >= 0.10 is not available";
 
   eval { require Types::Standard } or
      plan skip_all => "Types::Standard is not available";
}
 
use Time::HiRes qw( gettimeofday tv_interval );
sub measure(&)
{
   my ( $code ) = @_;
   my $start = [ gettimeofday ];
   $code->();
   return tv_interval $start;
}
 
use Object::Pad;
use Object::Pad::FieldAttr::Checked;
use Data::Checks;

t/95benchmark-signature.t  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
BEGIN {
   eval { require Signature::Attribute::Checked;
          Signature::Attribute::Checked->VERSION( '0.04' ) } or
      plan skip_all => "Signature::Attribute::Checked >= 0.04 is not available";
 
   eval { require Types::Standard } or
      plan skip_all => "Types::Standard is not available";
}
 
use Time::HiRes qw( gettimeofday tv_interval );
sub measure(&)
{
   my ( $code ) = @_;
   my $start = [ gettimeofday ];
   $code->();
   return tv_interval $start;
}
 
use Sublike::Extended;
use Signature::Attribute::Checked;
use Data::Checks;