File Coverage

blib/lib/Parse/RecDescent/Consumer.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod			n/a
total	8	16	50.0

package Parse::RecDescent::Consumer;

require 5.005_62;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Parse::RecDescent::Consumer ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(&Consumer

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(&Consumer

);

our $VERSION = sprintf '%2d.%02d', q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/;


# Preloaded methods go here.
 sub Parse::RecDescent::Consumer {
  my $text=shift;
  my $closure = sub {
    my $new_length=length($_[0]);
    my $original_text = $text;
    my $original_length = length($text);
    return substr($original_text, 0, ($original_length-$new_length));
  }
 }

1;
__END__