Adam Kennedy > Test-Inline > Test::Inline::Content::Legacy

Download:
Test-Inline-2.213.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  13
Open  3
View/Report Bugs
Module Version: 2.213   Source  

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

syntax highlighting: