use Test::More qw(no_plan);
use Inline::Mason 'as_subs', [qw(t/external_mason)];
like(Inline::Mason::generate('HELLO'), qr/hello world/si, 'hello world');
like(Inline::Mason::HELLO(), qr/hello world/si, 'hello world');
like(NIFTY(lang => 'Perl'), qr/Perl/, 'perl is nifty');
Inline::Mason::load_mason
  (
   BEATLES =>
   'Nothing\'s gonna change my <% $ARGS{what} %>',
  );
like(BEATLES(what => 'world'), qr/world/, 'beatles');


__END__

__HELLO__
% my $noun = 'World';
Hello <% $noun %>!
How are ya?