NAME
    MooseX::RW - Moose::Role reader/writer

VERSION
    version 0.003

SYNOPSIS
    Let suppose you have a voice box on you phone. You want to display all
    number of your messages.

     package VoiceBox::Reader;
     
 use Moose;
     use Phone;
     
 with MooseX::RW::Reader;
     
 # VoIP phone
     has phone => ( is => 'rw', isa => 'Phone', required => 1 );
     
 sub read {
        my $self = shift;
        my $vb = $phone->voicebox;
        my $count = $self->count;
        return if $vb->count >= $count;
        my $msg = $phone->voicebox->get_msg($count);
        $self->count($count+1);
        return $msg;
     }
     
 package Main;
     
 my $phone = Phone->new( url => 'a.b.c.d' );
     my $reader = VoiceBox::Reader->new( phone => $phone );
     while ( $msg = $reader->read() ) {
        say $msg->count, ": ", $msg->from;
     }

ATTRIBUTES
  count
    Count of items/records which have been handled by reader/writer.

METHODS
  begin
    Not required method which could be called by a processor at the begining
    of a process.

  end
    Not required method which could be called by a processor at the end of a
    process.

AUTHOR
    Fr矇d矇ric Demians <f.demians@tamil.fr>

COPYRIGHT AND LICENSE
    This software is Copyright (c) 2012 by Fr矇deric D矇mians.

    This is free software, licensed under:

      The GNU General Public License, Version 3, June 2007