File Coverage

blib/lib/Package/Subroutine/Namespace.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	29	29	100.0

  package Package::Subroutine::Namespace
# **************************************
; our $VERSION='0.01'
# *******************
; use strict ('vars','subs')
; use warnings

; use Perl6::Junction ()

; sub list_childs
    { my ($self,$package) = @_
    ; map { s/::$// ; $_ }
      grep { /::$/ } keys %{"${package}::"}
    }

; sub delete_childs
    { my ($self,$package,@keep) = @_
    ; for my $chld ($self->list_childs($package))
        { next if $chld eq Perl6::Junction::any(@keep)
        ; delete ${"${package}::"}{"${chld}::"}
        }
    }

; 1

__END__