view release on metacpan or  search on metacpan

lib/NetServer/Portal/Pi.pm  view on Meta::CPAN

    }
    pop @{$o->{O}} if @{$o->{O}} > 16;
}

sub resolve_path {
    my ($o, $path) = @_;
    my @at = (@{$o->{Package}}, @{$o->{Path}});
    @at=()
	if $path =~ s,^/,,;
    if ($path =~ m,^[\w\.\:/-]+$,) {
	my @step = split m'/+', $path;
	for my $step (@step) {
	    next if $step eq '.';
	    if ($step eq '..') {
		pop @at;
	    } else {
		if (@at and ref $at[$#at]) {
		    my $at = $at[$#at];
		    my $to;
		    if (reftype $at eq 'ARRAY') {
			$to = $at->[$step];