1234567891011121314151617181920 #!/usr/bin/env perluse strict;use warnings;use JavaScript::Writer;use Test::More;plan tests => 1;{ # For "<<" no warnings; my $js = JavaScript::Writer->new(); $js << q{alert('foo')}; is($js, q{alert('foo');});}
#!/usr/bin/env perl
use
strict;
warnings;
JavaScript::Writer;
Test::More;
plan
tests
=> 1;
{
# For "<<"
no
my
$js
= JavaScript::Writer->new();
<<
q{alert('foo')}
;
is(
,
q{alert('foo');}
);
}