• NAME
• SYNOPSIS
• AUTHOR
• COPYRIGHT AND LICENSE

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";
  });

=head1 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.