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.