—

              
package Ref::List;
BEGIN {
  $Ref::List::VERSION = '0.001';
}
# 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;
HideShow 46 lines of Pod
__END__
=pod
=head1 NAME
Ref::List - Punctuation-free dereferencing of arrayrefs and hashrefs
=head1 VERSION
version 0.001
=head1 SYNOPSIS
  use Ref::List qw(list);
  my $data = { 
        countries => [
                { name => 'Bulgaria', language = 'Bulgarian' },
                { name => 'Germany', language = 'German' },
        ],
  };
  print $_->{name} for list $data->{countries};
=head1 DESCRIPTION
This module exports a single function, C<list>, which dereferences the arrayref or hashref passed to it as an argument. C<list $argument> is basically a synonym for C<@{$argument}>, but is less awkward when C<$argument> is a longer expression part of a nested data structure.
=head1 FUNCTIONS
=head2 list (HASHREF|ARRAYREF)
Given a hash or array reference, dereference it and return its contents as a list. If the argument is C<undef>, returns C<undef>.
=head1 AUTHOR
  Peter Shangov <pshangov@yahoo.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010 by Peter Shangov.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut