File Coverage

blib/lib/Ref/List.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	36	36	100.0

package Ref::List;
BEGIN {
  $Ref::List::VERSION = '0.002';
}

# ABSTRACT: Punctuation-free dereferencing of arrayrefs and hashrefs

use strict;
use warnings;

use Carp qw(croak);
use Scalar::Util qw(reftype);

use base 'Exporter';

our (@EXPORT, @EXPORT_OK);

@EXPORT = qw(list);
@EXPORT_OK = qw(list);

sub list ($) {
    my $ref = shift;

    if (!defined($ref)) {
        return;
    }
    elsif ( reftype($ref) eq 'ARRAY') {
        return @$ref;
    }
    elsif ( reftype($ref) eq 'HASH') {
        return %$ref;
    }
    else {
        croak "Not a hashref or arrayref";
    }
}

1;


__END__