/ 
PPIx-Regexp-0.089
River stage three • 9 direct dependents • 169 total dependents
/ My::Module::Mock_Tokenizer

NAME

My::Module::Mock_Tokenizer - Mock tokenizer for t/*.t

SYNOPSIS

use lib qw{ inc };

use My::Module::Mock_Tokenizer;

my $tokenizer = My::Module::Mock_Tokenizer->new();

DESCRIPTION

This Perl class is private to the PPIx-Regexp package, and may be modified or retracted without notice. Documentation is for the benefit of the author.

It represents a mock tokenizer to be used in testing. It implements those methods that the author finds useful.

METHODS

This class supports the following public methods:

new

my $tokenizer = My::Module::Mock_Tokenizer->new();

This static method instantiates the tokenizer. In addition to the invocant it takes arbitrary name/value pairs of arguments. These arguments are made into a hash, and a blessed reference to this hash is returned. The arguments are not validated, but may be used in methods as documented below.

capture

say "Capture: '$_'" for $tokenizer->capture();

If $tokenizer->{capture} is an array reference, the contents of the array are returned. Otherwise nothing is returned.

my $cookie = $tokenizer->cookie( $name );

This method returns $tokenizer->{cookie}{$name}. If you want to specify a value for this, recall that cookies are code references.

modifier_modify

$tokenizer->modifier_modify( i => 1 );

This method does nothing and returns nothing.

__recognize_postderef

$tokenizer->__recognize_postderef()
    and say 'We recognize postfix dereferences';

This method returns the value of $tokenizer->{postderef}.

SEE ALSO

PPIx::Regexp::Tokenizer

SUPPORT

This module is private to the PPIx-Regexp package. It is unsupported in the sense that the author reserves the right to modify or retract it without prior notice. Bug reports against this module will be accepted provided they document a problem with this module that results in spurious test results.

Support is by the author. Please file bug reports at https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-Regexp, https://github.com/trwyant/perl-PPIx-Regexp/issues, or in electronic mail to the author.

AUTHOR

Tom Wyant (wyant at cpan dot org)

COPYRIGHT AND LICENSE

Copyright (C) 2015-2023, 2025 by Thomas R. Wyant, III

This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full text of the licenses in the directory LICENSES.

This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.