view release on metacpan or  search on metacpan

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

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

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;