File Coverage

blib/lib/HTML/Widgets/NavMenu/Object.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	40	40	100.0

package HTML::Widgets::NavMenu::Object;
$HTML::Widgets::NavMenu::Object::VERSION = '1.0901';
use strict;
use warnings;

use Class::XSAccessor ();

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

    bless $self, $class;

    $self->_init(@_);

    return $self;
}

sub _init
{
    my $self = shift;

    return 0;
}

sub destroy_
{
    my $self = shift;

    return 0;
}

sub DESTROY
{
    my $self = shift;

    $self->destroy_();
}


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 };

    ## no critic
    eval <<"EOF";
package $package;

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

    ## use critic
}


1;

__END__