view release on metacpan or  search on metacpan

lib/Ansible.pm  view on Meta::CPAN

686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
           && $self->subs->undefined;
    push(@o, "! the whole enchalada")
        if $self->context->undefined;
    my (@r) = returns(openangle(@o));
    return @r if wantarray;
    return join('', @r);
}
 
sub callerlevels {
    my $n = 1;
    1 while caller($n ++);
    return $n;
}
 
sub mget {
    my ($self, @designators) = @_;
 
    my $cl = callerlevels;
    my @newset;
    if ( @designators > 1 ) {