view release on metacpan or  search on metacpan

lib/Ansible.pm  view on Meta::CPAN

            $self = $self->{$d};
            print STDERR "\nWE DO: $self->{$debg}\n" if $debug_get;
        }
        last unless @designators;
        if ( $self->single ) {
            $self = $self->subs;
            print STDERR "\nSINGLETON: $self->{$debg}\n" if $debug_get;
        }
        else {
            print STDERR "\nNOT SINGLE\n" if $debug_get;
            return $undef;
        }
    }
    print STDERR "\nDONE\n" if $debug_get;
    if ( wantarray ) {
        $self = $self->zoom;
        my (@k) = $self->kids;
        return @k if @k;
        return $self;
    }
    return $self;
}

sub strim {
    my (@l) = @_;
    for $_ ( @l ) {
        s/^\s+//;
        s/\s+$//;
        s/\n$//;
    }
    return $l[0] unless wantarray;
    return @l;
}

sub trim {
    my (@l) = @_;
    for $_ ( @l ) {
        s/^\s+//;
        s/\s+$//;
    }
    return $l[0] unless wantarray;
    return @l;
}

sub display {
    my ($self) = @_;
    my @o;
    push(@o, $self->setcontext);
    push(@o, trim($self->single->{$text}))
        if $self->single && $self->single->{$text}
           && $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 ) {

        print STDERR "\nGET$cl $designators[0]----------\n" if $debug_mget;

        my (@set) = $self->get(shift @designators);
        for my $item ( @set ) {

            print STDERR "\nMGET$cl $item ----------\n" if $debug_mget;
            print STDERR "\nMGET$cl $item->{$debg}\n" if $debug_mget;

            my (@got) = $item->mget(@designators);

            print STDERR map { "\nRESULTS$cl: $_->{$debg}\n" } @got
                if $debug_mget;

            push(@newset, @got);
        }
    }
    else {

        print STDERR "\nxGET$cl $designators[0] -------\n" if $debug_mget;

        (@newset) = $self->get(shift @designators);

        print STDERR map { "\nxRESULTS$cl: $_->{$debg}\n" } @newset
            if $debug_mget;

    }
    return @newset;
}

sub sortit {
    my $self = shift;
    return sort { $self->{$a}->seqn cmp $self->{$b}->seqn } @_;
}

=head1 NAME

Ansible - The great new Ansible!

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';


=head1 SYNOPSIS

Quick summary of what the module does.