File Coverage

blib/lib/Method/Slice.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	39	42	92.8

package Method::Slice;
use 5.010;
use strict;
use warnings;
use Exporter   qw/import/;
use Carp;
use Want;

our $VERSION = '0.02';
our @EXPORT  = qw/mslice/;

sub mslice : lvalue {
  my ($obj, @meths) = @_;
  if (want('LVALUE')) {
    if (my @rvals = want('ASSIGN')) {
      # call each method as a setter accessor
      for my $i (0 .. $#meths) {
        my $meth = $meths[$i];
        $obj->$meth($rvals[$i]);
      }
      lnoreturn;
    }
    else {
      croak "mslice used in LVALUE context but without ASSIGN .. "
          . "don't know what to do :-(";
    }
  }
  else {
    # call each method as a getter accessor, and gather values
    my @values = map {scalar $obj->$_()} @meths;
    rreturn @values;
  }
  return;
}



__END__