Test::Inline::Content::Legacy(3p)

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

  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.

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 software is copyright (c) 2003 by Adam Kennedy.

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