| Test::Inline::Content::Legacy(3pm) | User Contributed Perl Documentation | Test::Inline::Content::Legacy(3pm) |
Test::Inline::Content::Legacy - Test::Inline 2 Content Handler for legacy functions
version 2.214
Custom script content generation using Test::Inline 2.000+ with a custom generator functions
my $header = "....";
my $function = sub {
my $Object = shift;
my $Script = shift;
return $header . $Script->merged_content;
};
my $Inline = Test::Inline->new(
...
file_content => $function,
);
Migrating this same code to Test::Inline 2.100+ ContentHandler objects
my $header = "....";
my $function = sub {
my $Object = shift;
my $Script = shift;
return $header . $Script->merged_content;
};
my $ContentHandler = Test::Inline::Content::Legacy->new( $function );
my $Inline = Test::Inline->new(
...
ContentHandler => $ContentHandler,
);
This class exists to provide a migration path for anyone using the custom script generators in Test::Inline via the "file_content" param.
The synopsis above pretty much says all you need to know.
The "new" constructor for "Test::Inline::Content::Legacy" takes a single parameter of a "CODE" reference, as you would have previously provided directly to "file_content".
Returns a new "Test::Inline::Content::Legacy" object, or "undef" if not passed a "CODE" reference.
The "coderef" accessor returns the "CODE" reference for the object
The "process" method works with the legacy function by passing the Test::Inline and Test::Inline::Script arguments straight through to the legacy function, and returning it's result as the return value.
See the main SUPPORT section.
Bugs may be submitted through the RT bug tracker <https://rt.cpan.org/Public/Dist/Display.html?Name=Test-Inline> (or bug-Test-Inline@rt.cpan.org <mailto:bug-Test-Inline@rt.cpan.org>).
Adam Kennedy <adamk@cpan.org>
This software is copyright (c) 2003 by Adam Kennedy.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
| 2021-01-31 | perl v5.32.0 |