package MyUtil;
$VERSION = 0.001;

use strict;
use warnings;

use base 'Exporter';
our @EXPORT_OK = qw(_list);


sub _list {
    my ($data) = @_;
    return unless $data;

    my @data = ($data);
    @data = @$data if ref $data eq 'ARRAY';

    return @data if wantarray;
    return \@data;
}


1;