File Coverage

blib/lib/LWP/MemberMixin.pm
Criterion Covered Total %
statement 5 5 100.0
branch 2 2 100.0
condition n/a
subroutine 1 1 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package LWP::MemberMixin;
2              
3             our $VERSION = '6.34';
4              
5             sub _elem {
6 178     178   257 my $self = shift;
7 178         250 my $elem = shift;
8 178         278 my $old = $self->{$elem};
9 178 100       362 $self->{$elem} = shift if @_;
10 178         601 return $old;
11             }
12              
13             1;
14              
15             __END__