Test::Inline::Content::Legacy - Test::Inline 2 Content Handler for legacy functions
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.
Adam Kennedy <cpan@ali.as>, http://ali.as/
Copyright (c) 2004 - 2005 Phase N Austalia. All rights reserved.
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.