NAME
Text::Diff3::ListMixin - List mix-in.
SYNOPSIS
package AnyList;
use base qw( Text::Diff3::ListMixin Text::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 mix-in class derived delegates 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.