File Coverage

blib/lib/Text/MicroMason.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	19	21	90.4

package Text::MicroMason;
$VERSION = '2.22';

# The #line directive requires Perl 5.6 to work correctly the way we use
# it in Base.
require 5.006;
use strict;

require Text::MicroMason::Base;

######################################################################

sub import {
  shift;
  return unless ( @_ );
  require Exporter;
  require Text::MicroMason::Functions;
  unshift @_, 'Text::MicroMason::Functions';
  goto &Exporter::import
}

######################################################################

sub class {
  shift;
  Text::MicroMason::Base->class( @_, 'HTMLMason' );
}

sub new {
  shift;
  Text::MicroMason::Base->new( @_, '-HTMLMason' )
}

######################################################################

1;

__END__