File Coverage

blib/lib/Games/Solitaire/Verify/Base.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	30	30	100.0

package Games::Solitaire::Verify::Base;
$Games::Solitaire::Verify::Base::VERSION = '0.2401';
use strict;
use warnings;


use Class::XSAccessor;



sub new
{
    my $class = shift;
    my $self  = {};
    bless $self, $class;

    # May throw an exception.
    $self->_init(@_);

    return $self;
}


sub mk_accessors
{
    my $package = shift;
    return $package->mk_acc_ref( [@_] );
}


sub mk_acc_ref
{
    my $package = shift;
    my $names   = shift;

    my $mapping = +{ map { $_ => $_ } @$names };

    eval <<"EOF";
package $package;

Class::XSAccessor->import(
    accessors => \$mapping,
);
EOF

}

1;    # End of Games::Solitaire::Verify::Base

__END__