NAME

Text::Diff3::ListMixin - List mix-in.

SYNOPSIS

package AnyList;
use base qw(Text::Diff3::ListMixin Text::Diff3::Base);
sub list { return $_[0]->buffer }

package AnyListUser;
use SomeFactory;
my $list = SomeFactory->new->create_anylist;
$list->push($x, $y);
$x = $list->pop;
$list->unshift($x, $y);
$x = $list->shift;
until ($list->is_empty) {
   $x = $list->shift;
   $x = $list->first->foo;
   $y = $list->last->bar;
}
$list->size == 3 or die "excepts \$list->size == 3".
$list->each(sub{
    my($x) = @_;
    print $x, "\n";
});

ABSTRACT

This is a mix-in class derived delegates to the list properties.

AUTHOR

MIZUTANI Tociyuki <tociyuki@gmail.com>.

COPYRIGHT AND LICENSE

Copyright (C) 2009 MIZUTANI Tociyuki

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version.