package Data::Monad::Base::Util;
use strict;
use warnings;
use Exporter qw(import);
our @EXPORT_OK = qw(list);
sub list { wantarray ? @_ : shift }
1;
__END__
=head1 NAME
Data::Monad::Base::Util - Utilities for my own use.
=head1 SYNOPSIS
use Data::Monad::Base::Util qw(list);
sub a_function {
my ($x, $y, $z) = @_;
my @results = ...;
return list @results;
}
=head1 DESCRIPTION
This is a utility class.
=head1 FUNCTIONS
=over 4
=item return list @results;
Return values of an array as one list even if it called on scalar context.
=back
=head1 AUTHOR
hiratara E<lt>hiratara {at} cpan.orgE<gt>
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut