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