Test::Inline::Content::Legacy.3pm

Langue: en

Autres versions - même langue

Version: 2009-07-14 (fedora - 01/12/10)

Section: 3 (Bibliothèques de fonctions)

Sommaire

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 2004 - 2009 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.