Test::Inline::Content::Legacy(3pm) | User Contributed Perl Documentation | Test::Inline::Content::Legacy(3pm) |
NAME¶
Test::Inline::Content::Legacy - Test::Inline 2 Content Handler for legacy functionsSYNOPSIS¶
Custom script content generation using Test::Inline 2.000+ with a custom generator functionsmy $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, );
DESCRIPTION¶
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.
METHODS¶
new $CODE_ref¶
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.
coderef¶
The "coderef" accessor returns the "CODE" reference for the objectprocess $Inline $Script¶
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.SUPPORT¶
See the main SUPPORT section.AUTHOR¶
Adam Kennedy <adamk@cpan.org>, <http://ali.as/>COPYRIGHT¶
Copyright 2004 - 2013 Adam Kennedy.This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
2015-12-28 | perl v5.22.1 |