#!/usr/bin/perl --

use strict;
use warnings;

use JavaScript::Code;


foreach(
    "hey i'm message",
    q~h'e"'y"''"~,
    qq~ab&!@#$%^&*()_\n\t\nra~ # found another bug, \t\n are left as l
+iterals, not legal
){
    my $str = $_;
    $str =~ s/\n/\\n/g;#temporary workaround, easy fix for JavaScript:
+:Code
    $str =~ s/\t/\\t/g;
    my $mesg = JavaScript::Code::String->new()->value($str);
    my $alert = JavaScript::Code::Function->new(name => 'alert');
    print $alert->call($mesg)->output,"\n";
}

# fixes a bug , where keeps calling ->args, but no such method
# Can't locate auto/JavaScript/Code/Function/args.al in @INC (@INC con
+tains: D:/Perl/site/lib D:/Perl/lib .) at D:/Perl/site/lib/JavaScript
+/Code/Function.pm line 88

sub JavaScript::Code::Element::args { shift->__args(@_) }

__END__
alert ( "hey i'm message" )
alert ( "h'e\"'y\"''\"" )
alert ( "ab&!@#0^&*()_\n\t\nra" )
[download]