ELUDE or
die "Couldn't open temp prelude ($TEMP_PRELUDE): $!";
my $program = do { local $/; <IN> };
close IN;
strip_comments($program);
$program =~ s{(["\\])}{\\$1}g;
$pro read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commentembedded in perl
=head1 SYNOPSIS
our $dragdrop = do { package HTML::Prototype::DragDrop; local $/; <DATA> };
=head1 DESCRIPTION
This is the script.aculo.us dragdrop library embedded in a perl y, embedded in perl
=head1 SYNOPSIS
our $effects= do { package HTML::Prototype::Effects; local $/; <DATA> };
=head1 DESCRIPTION
This is the script.aculo.us effects library embedded in a perl _dded in perl
=head1 SYNOPSIS
our $controls = do { package HTML::Prototype::Controls; local $/; <DATA> };
=head1 DESCRIPTION
This is the script.aculo.us controls library embedded in a pary, embedded in perl
=head1 SYNOPSIS
our $prototype = do { package HTML::Prototype::Js; local $/; <DATA> };
=head1 DESCRIPTION
This is the actual Prototype library embedded in a perl __DATA__kg->register_hook(BEFORE_INIT => sub {
my $self = shift;
$self->{_body} = do { local $/; <STDIN> };
});
no strict 'refs';
*{"$pkg\::jsonrpc"} = \&_jsonrpc;
}
sub _jsonrpcgth);
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my $data = do { local $/; <DATA> };
my %cache;
sub transform {
my $self = shift;
my ($pos, $processor) = @_;
"$0": $!);
for (1..$line) { <SCRIPT> } # go past lines up to the one that uses us
run(do{ local $/; <SCRIPT> });
exit;
}
sub run { # transform and eval mupl text
$_ = shift or return;
my $ (open SRC, "<$path" and flock(SRC, 1)) or croak qq(can't get src "$path": $!);
my $src = do{ local $/; <SRC> };
close SRC;
run $src;
$in_file = $tmp;
}
sub param { my ($v) = @_; return wantarrao read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commento read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commento read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commento read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commento read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commento read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commentin perl.
=head1 SYNOPSIS
our $prototype_useful = do { package HTML::Prototype::Useful::Js; local $/; <DATA> };
=head1 DESCRIPTION
This is some additions to the Prototype library, embedded in a:Js;
our $VERSION = '0.05';
our $prototype_useful = do { package HTML::Prototype::Useful::Js; local $/; <DATA> };
=head1 NAME
HTML::Prototype::Useful - Some useful additions for the Prototype librao read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C commento read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C comment from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# temporarily remove C co