File Coverage

blib/lib/HTML/Widgets/NavMenu/ToJSON/Data_Persistence.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	30	31	96.7

package HTML::Widgets::NavMenu::ToJSON::Data_Persistence;

use 5.008;
use strict;
use warnings FATAL => 'all';

use parent 'HTML::Widgets::NavMenu::Object';

__PACKAGE__->mk_acc_ref(
    [
        qw(
            _data
        ),
    ]
);


our $VERSION = '0.0.7';



sub _get_id_persistence
{
    my $self = shift;

    return $self->_data->{id_persistence};
}

sub _calc_initial_data
{
    my $self = shift;

    return { id_persistence => { paths_ids => { }, next_id => 1, }, };
}

sub get_id_for_url
{
    my ($self, $url) = @_;

    my $ptr = $self->_get_id_persistence;

    if (! exists($ptr->{paths_ids}->{$url}))
    {
        $ptr->{paths_ids}->{$url} = ($ptr->{next_id}++);
    }

    return $ptr->{paths_ids}->{$url};
}


1; # End of HTML::Widgets::NavMenu::ToJSON::Data_Persistence

__END__