test::inline::content::legacy(3pm) debian man page | unix.com

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 functions

SYNOPSIS
       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,
	       );

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 object

   process $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 - 2010 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.

perl v5.12.4							    2010-11-22					Test::Inline::Content::Legacy(3pm)