package SoPW_11102936;

use 5.006;
use strict;
use warnings FATAL => 'all';

=head1 NAME

SoPW_11102936 - The great new SoPW_11102936!
shift on empty array in list context broken
=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';


=head1 SYNOPSIS

Quick summary of what the module does.

Perhaps a little code snippet.

    use SoPW_11102936;

    my $foo = SoPW_11102936->new();
    ...

=head1 EXPORT

A list of functions that can be exported.  You can delete this section
if you don't export anything, such as for a purely object-oriented mod
+ule.

=head1 SUBROUTINES/METHODS

=head2 new

=cut

sub new {

my $class = shift;
bless [], $class;
}

=head2 _empty

=cut

sub _empty {

my $self = shift;
$self;

}

=head2 _undef

=cut

sub _undef {

my $self = shift;
undef $self->[0];
$self;

}

=head2 context_scalar_shift

=cut

sub context_scalar_shift {

my $self = shift;
my $s = shift $self->[0];
$self->[0] = \$_;
$self;

}


=head2 context_list_shift

=cut

sub context_list_shift {

my $self = shift;
my @a = shift $self->[0];
$self->[0] = \@a;
$self;

}


=head2 context_scalar_splice

=cut

sub context_scalar_splice {

my $self = shift;
my $s = splice( $self->[0], 0 , 1 );
$self->[0] = \$s;
$self;

}


=head2 context_list_splice

=cut

sub context_list_splice {

my $self = shift;
my @a = splice( $self->[0], 0 , 1 );
$self->[0] = \@a;
$self;

}

sub unload {

my $self=shift;
return $self->[0];
    

}



=head1 AUTHOR

Don Coyote, C<< <tbc at tbc> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-sopw_11102936 at r
+t.cpan.org>, or through
the web interface at L<https://rt.cpan.org/NoAuth/ReportBug.html?Queue
+=SoPW_11102936>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.




=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc SoPW_11102936


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker (report bugs here)

L<https://rt.cpan.org/NoAuth/Bugs.html?Dist=SoPW_11102936>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/SoPW_11102936>

=item * CPAN Ratings

L<https://cpanratings.perl.org/d/SoPW_11102936>

=item * Search CPAN

L<https://metacpan.org/release/SoPW_11102936>

=back


=head1 ACKNOWLEDGEMENTS


=head1 LICENSE AND COPYRIGHT

This software is Copyright (c) 2019 by Don Coyote.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)


=cut

1; # End of SoPW_11102936
[download]

#!perl -T
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

use SoPW_11102936;

my @methods = qw/
new

_empty
_undef
context_scalar_shift
context_list_shift
context_scalar_splice
context_list_splice
unload
/;
my @t_methods = grep /\Acontext/, @methods;

plan tests => 1 + ( scalar( @t_methods ) * 2 );


my $foo = SoPW_11102936->new;

isa_ok($foo, 'SoPW_11102936', 'its an SoPW object');

for my $method ( @t_methods ){
    
    $foo->_empty();
    $foo->$method();
        is($foo->unload, (), "$method is empty");
            
    };

for my $method ( @t_methods ){
    
    $foo->_undef();
    $foo->$method();
        is($foo->unload, undef, "$method is undef");
            
    };


diag( "Testing SoPW_11102936 $SoPW_11102936::VERSION, Perl $], $^X" );
[download]