NAME

Algorithm::Diff3::ListMixin - mixin delegators to property `list'

SYNOPSIS

package AnyList;
use base qw( Algorithm::Diff3::ListMixin Algorithm::Diff3::Base );
sub list { $_[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 mixin class delived delegators to the list properties.

AUTHOR

MIZUTANI Tociyuki <tociyuki@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2005 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.