File Coverage

blib/lib/Nephia/Incognito.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	4	6	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	34	36	94.4

package Nephia::Incognito;
use strict;
use warnings;
use Nephia::Core;

our $SPACE = {};

sub incognito {
    my ($class, %opts) = @_;
    $opts{caller}  ||= caller();
    my $instance = Nephia::Core->new(%opts);
    $instance->export_dsl;
    my $name = $class->_incognito_namespace($instance->caller_class);
    $SPACE->{$name} = $instance;
    return $name;
}

sub unmask {
    my $class = shift;
    my $appname = shift || caller();
    my $name = $class->_incognito_namespace($appname);
    return $SPACE->{$name};
}

sub _incognito_namespace {
    my ($class, $appname) = @_;
    'Nephia::Incognito::'.$appname;
}

1;

__END__