File Coverage

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

Criterion	Covered	Total	%
statement	61	61	100.0
branch	26	26	100.0
condition	26	26	100.0
subroutine	7	7	100.0
pod			n/a
total	120	120	100.0

package HTML::Widgets::NavMenu::Url;
$HTML::Widgets::NavMenu::Url::VERSION = '1.1000';
use strict;
use warnings;

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

__PACKAGE__->mk_acc_ref(
    [
        qw(
            _url
            _is_dir
            _mode
        )
    ]
);


sub _init
{
    my $self = shift;

    my ( $url, $is_dir, $mode ) = @_;

    # TODO - extract a method.
    $self->_url(
          ( ref($url) eq "ARRAY" )
        ? [@$url]
        : [ split( /\//, $url ) ]
    );

    $self->_is_dir( $is_dir || 0 );

    $self->_mode( $mode || 'server' );

    return 0;
}

sub _get_url
{
    my $self = shift;

    return [ @{ $self->_url() } ];
}

sub _get_relative_url
{
    my $base = shift;

    my $url = $base->_get_url_worker(@_);

    return ( ( $url eq "" ) ? "./" : $url );
}

sub _get_url_worker
{
    my $base             = shift;
    my $to               = shift;
    my $slash_terminated = shift;
    my $no_leading_dot   = shift;

    my $prefix = ( $no_leading_dot ? "" : "./" );

    my @this_url  = @{ $base->_get_url() };
    my @other_url = @{ $to->_get_url() };

    my $ret;

    my @this_url_bak  = @this_url;
    my @other_url_bak = @other_url;

    while (scalar(@this_url)
        && scalar(@other_url)
        && ( $this_url[0] eq $other_url[0] ) )
    {
        shift(@this_url);
        shift(@other_url);
    }

    if ( ( !@this_url ) && ( !@other_url ) )
    {
        if ( ( !$base->_is_dir() ) ne ( !$to->_is_dir() ) )
        {
            die "Two identical URLs with non-matching _is_dir()'s";
        }
        if ( !$base->_is_dir() )
        {
            if ( scalar(@this_url_bak) )
            {
                return $prefix . $this_url_bak[-1];
            }
            else
            {
                die "Root URL is not a directory";
            }
        }
    }

    if ( ( $base->_mode() eq "harddisk" ) && ( $to->_is_dir() ) )
    {
        push @other_url, "index.html";
    }

    $ret = "";

    if ($slash_terminated)
    {
        if ( ( scalar(@this_url) == 0 ) && ( scalar(@other_url) == 0 ) )
        {
            $ret = $prefix;
        }
        else
        {
            if ( !$base->_is_dir() )
            {
                pop(@this_url);
            }
            $ret .= join( "/", ( map { ".." } @this_url ), @other_url );
            if ( $to->_is_dir() && ( $base->_mode() ne "harddisk" ) )
            {
                $ret .= "/";
            }
        }
    }
    else
    {
        my @components =
            ( ( map { ".." } @this_url[ 1 .. $#this_url ] ), @other_url );
        $ret .= ( $prefix . join( "/", @components ) );
        if (   ( $to->_is_dir() )
            && ( $base->_mode() ne "harddisk" )
            && scalar(@components) )
        {
            $ret .= "/";
        }
    }

    #if (($to->_is_dir()) && (scalar(@other_url) || $slash_terminated))

    return $ret;
}


1;

__END__