File Coverage

blib/lib/Package/Relative.pm

Criterion	Covered	Total	%
statement	26	31	83.8
branch	6	6	100.0
condition			n/a
subroutine	7	9	77.7
pod	3	3	100.0
total	42	49	85.7

#!/usr/bin/perl

package Package::Relative;

use strict;
use warnings;

our $VERSION = "0.01";

use overload (
	'""' => 'stringify',
	'.' => 'concat',
	fallback => 1,
);

our @EXPORT = qw/PKG/;
use base qw/Exporter/;

sub PKG {
	my $caller = caller;
	return bless \$caller, __PACKAGE__;
}

sub stringify {
	${ $_[0] };
}

sub concat {
	my $self = shift;
	my $other = shift;
	my $reversed = shift;

	($self, $other) = ($other, $self) if $reversed;

	my @pkg = grep { length } split '::', "$self";

	/^\.\.$/ ? pop @pkg : push @pkg, $_ for (grep { length } split '::', "$other");

	my $pkg = join("::", @pkg);

	$reversed ? bless \$pkg, __PACKAGE__ : $pkg;
}

sub AUTOLOAD {
	my $self = shift;
	my $pkg = $self->stringify;

	# FIXME: perhaps this should croak? After all, without concatenating you might as well use __PACKAGE__

	my ($method) = (our $AUTOLOAD =~ /:([^:]+)$/);

	$pkg->$method(@_);
}

sub DESTROY {}

__PACKAGE__

__END__