File Coverage

blib/lib/Scalar/Listify.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch	4	6	66.6
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	21	29	72.4

package Scalar::Listify;

require 5.005_62;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Scalar::Listify ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.

our @EXPORT;
@EXPORT = qw(&listify &listify_aref);

our $VERSION = '0.03';


# Preloaded methods go here.

my $sub = 'Scalar::Listify::listify';

sub listify {

  scalar @_ == 1 or die "$sub only takes one argument and this argument
must be a simple scalar or array reference";

  my $scalar = shift;

  if (not ref($scalar)) {
    my @ret = ($scalar);
    return (@ret);
  }

  ref($scalar) eq 'ARRAY' and return @$scalar;

  require Data::Dumper;
  my $err = "Scalar::Listify::listify error - this function only takes
simple scalars or references to arrays. I'm not sure what you gave me, but
here is what Data::Dumper has to say about it:";
  warn $err;
  warn Data::Dumper->Dump([$scalar],['bad_data']);

}

sub listify_aref {

  [ listify @_ ]

}

1;
__END__