Lines Matching refs:_current
1874 use overload fallback => 1, 'bool' => sub { @{shift->{_current}} > 0 };
1883 return bless { _content => $content, _current => [$content] } => $class;
1904 $self->{_current} = [@_], return $self if @_;
1905 return wantarray ? @{$self->{_current}} : $self->{_current}->[0];
1910 local $self->{_current} = $self->{_current};
1913 ? map {o_value($_)} @{$self->{_current}}
1914 : @{$self->{_current}} ? o_value($self->{_current}->[0]) : undef;
1928 local $self->{_current} = $self->{_current};
1931 ? map {$self->_as_data($_)} @{$self->{_current}}
1932 : @{$self->{_current}}
1933 ? $self->_as_data($self->{_current}->[0])
1939 local $self->{_current} = $self->{_current};
1942 ? map {(SOAP::Utils::splitlongname(o_lname($_)))[0]} @{$self->{_current}}
1943 : @{$self->{_current}} ? (SOAP::Utils::splitlongname(o_lname($self->{_current}->[0])))[0] : undef;
1983 $self->{_current} = [
1984 $path =~ s!^/!! || !@{$self->{_current}}
1986 : map {$self->_traverse_tree(o_child($_), split '/' => $path)} @{$self->{_current}}