File Coverage

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

Criterion	Covered	Total	%
statement	64	64	100.0
branch	24	24	100.0
condition	3	3	100.0
subroutine	12	12	100.0
pod	1	1	100.0
total	104	104	100.0

package HTML::Widgets::NavMenu::Predicate;
$HTML::Widgets::NavMenu::Predicate::VERSION = '1.0902';
use strict;
use warnings;

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

__PACKAGE__->mk_acc_ref( [qw(type bool regexp callback _capture)], );

use HTML::Widgets::NavMenu::ExpandVal;

sub _init
{
    my $self = shift;

    my %args = (@_);

    my $spec = $args{'spec'};

    $self->_process_spec($spec);

    return 0;
}

my %true_vals = ( map { $_ => 1 } (qw(1 yes true True)) );

sub _is_true_bool
{
    my $self = shift;
    my $val  = shift;
    return exists( $true_vals{$val} );
}

my %false_vals = ( map { $_ => 1 } (qw(0 no false False)) );

sub _is_false_bool
{
    my $self = shift;
    my $val  = shift;
    return exists( $false_vals{$val} );
}

sub _get_normalized_spec
{
    my $self = shift;
    my $spec = shift;

    if ( ref($spec) eq "HASH" )
    {
        return $spec;
    }
    if ( ref($spec) eq "CODE" )
    {
        return +{ 'cb' => $spec };
    }
    if ( $self->_is_true_bool($spec) )
    {
        return +{ 'bool' => 1, };
    }
    if ( $self->_is_false_bool($spec) )
    {
        return +{ 'bool' => 0, };
    }

    # Default to regular expression
    if ( ref($spec) eq "" )
    {
        return +{ 're' => $spec, };
    }
    die "Unknown spec type!";
}

sub _process_spec
{
    my $self = shift;
    my $spec = shift;

    # TODO: Replace me with the real logic.
    $self->_assign_spec( $self->_get_normalized_spec( $spec, ), );
}

sub _assign_spec
{
    my $self = shift;
    my $spec = shift;

    if ( exists( $spec->{'cb'} ) )
    {
        $self->type("callback");
        $self->callback( $spec->{'cb'} );
    }
    elsif ( exists( $spec->{'re'} ) )
    {
        $self->type("regexp");
        $self->regexp( $spec->{'re'} );
    }
    elsif ( exists( $spec->{'bool'} ) )
    {
        $self->type("bool");
        $self->bool( $spec->{'bool'} );
    }
    else
    {
        die "Neither 'cb' nor 're' nor 'bool' were specified in the spec.";
    }

    $self->_capture( ( ( !exists( $spec->{capt} ) ) ? 1 : $spec->{capt} ) );
}

sub _evaluate_bool
{
    my ( $self, $args ) = @_;

    my $path_info    = $args->{'path_info'};
    my $current_host = $args->{'current_host'};

    my $type = $self->type();

    if ( $type eq "callback" )
    {
        return $self->callback()->(%$args);
    }
    elsif ( $type eq "bool" )
    {
        return $self->bool();
    }
    else    # $type eq "regexp"
    {
        my $re = $self->regexp();
        return ( ( $re eq "" ) || ( $path_info =~ /$re/ ) );
    }
}

sub evaluate
{
    my $self = shift;

    my $bool = $self->_evaluate_bool( {@_} );

    if ( !$bool )
    {
        return $bool;
    }
    else
    {
        return HTML::Widgets::NavMenu::ExpandVal->new(
            {
                capture => $self->_capture()
            },
        );
    }
}


1;

__END__