view release on metacpan or  search on metacpan

lib/Text/BIP.pm  view on Meta::CPAN

				_process_dir($self, $path_file) 
					if (! $self->depth || $self->{__index_depth} < $self->depth);
				$self->{__index_depth}--;
			}
			pop(@{ $self->{__stack} });
		}
	}
	1;
}

# accessors methods to current state while streaming.
sub dir { $_[0]->{__stack}->[-1]->{path} || $path_delim; }
sub relative_dir { 
	my $base = $_[1] || $_[0]->base; 
	$_[0]->{__stack}->[-1]->{path}=~m/^$base(.*)/ ? $1 : '';
}
sub file { $_[0]->{__stack}->[-1]->{file} || ''; }
sub ext { $_[0]->{__stack}->[-1]->{ext} || ''; }
sub name { 
	my $x=$_[0]->{__stack}->[-1]; 
	File::Spec->catfile( $x->{path}, $x->{file} );