NAME

Test::Inline::Content::Legacy - Test::Inline 2 Content Handler for legacy functions

VERSION

version 2.214

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

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.

Bugs may be submitted through the RT bug tracker <https://rt.cpan.org/Public/Dist/Display.html?Name=Test-Inline> (or bug-Test-Inline@rt.cpan.org <mailto:bug-Test-Inline@rt.cpan.org>).

AUTHOR

Adam Kennedy <adamk@cpan.org>

COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.