NAME

Data::AnyXfer::Role::Count - role for counting transfers

SYNOPSIS

            

              
              
package MyPackage;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
extends 'Data::AnyXfer';
...
around 'transform' => sub {
  my ( $orig, $self, $res ) = @_;
  ...
};
with 'Data::AnyXfer::Role::Count';
            
          

DESCRIPTION

This role counts transferred records.

Note that you must include if after you have modified the transform method.

ATTRIBUTES

transfer_count

This is the number of transferred records.

METHODS

transform

The transform method is modified to increment the "transfer_count" when the returned record is not false.

COPYRIGHT

This software is copyright (c) 2019, Anthony Lucas.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.