File Coverage

lib/Test/WWW/Mechanize/Driver/MagicValues.pm

Criterion	Covered	Total	%
statement	27	46	58.7
branch	0	2	0.0
condition			n/a
subroutine	9	12	75.0
pod			n/a
total	36	60	60.0

=head1 NAME

Test::WWW::Mechanize::Driver::MagicValues - Define Magic Value classes

=head1 Magic Classes

=cut

=head2 FileContents

Stringification of a scalar reference in this class will slurp the file
whose name was stored in the reference.

 my $file = "Foo.txt";
 print bless(\$file, "FileContents");  # prints contents of Foo.txt

=cut

package FileContents;
use strict; use warnings;
our $VERSION = 1.0;

use overload '""' => sub {
  my $x = shift;
  open my $F, "<", $$x or die "Can't open $$x for reading: $!";
  local $/;
  return scalar <$F>;
};


=head2 ApplyTemplate

Stringification of a scalar reference in this class will pass the text of
the reference through Template.pm. Some useful variables will be defined.

 my $tmpl = "[% now.strftime('%Y-%m-%d') %]";
 print bless(\$tmpl, "ApplyTemplate");  # prints current date

=over 4

=item t

The value of C<$Test::WWW::Mechanize::Driver::CURRENT_GROUP>

=item now

The current date as a DateTime object.

=back

=cut

package ApplyTemplate;
use strict; use warnings;
our $VERSION = 1.0;

use overload '""' => sub {
  my $x = shift;
  require Template;
  require DateTime;
  my $template = Template->new();
  my $input = $$x;
  my $output;
  $template->process( \$input, {
    t => $Test::WWW::Mechanize::Driver::CURRENT_GROUP,
    now => DateTime->now,
  },
  \$output );
  return $output;
};


=head2 Stacked

Stringification of a scalar reference in this class will slurp the file
whose name was stored in the reference.

 my @stack = ( "Foo.txt", "FileContents", "ApplyTemplate" );
 print bless(\@stack, "Stacked");  # fills in and prints template in Foo.txt

=cut

package Stacked;
use strict; use warnings;
our $VERSION = 1.0;

use overload '""' => sub {
  my $x = shift;
  my $value = $$x[0];
  for my $pkg (@$x[1..$#{$x}]) {
    my $blessed = bless \$value, $pkg;
    $value = "$blessed";
  }
  return $value;
};



1;

__END__