view release on metacpan or  search on metacpan

t/12-args.t  view on Meta::CPAN

    package Failover2;

    use Moo;
    use Types::Standard qw/ Str ArrayRef /;

    has 'error2' => ( is => 'ro' );
    has 'class2' => ( is => 'ro', isa => Str );

    has 'num'  => ( is => 'ro' ); # can be anything

    has 'args' => ( is => 'ro', isa => ArrayRef );

    our $count = 0;

    sub alt_new {
      ++$count;
      shift->new(@_);
    }
}

{