CPAN::Groonga

o 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

o 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

   local *F;
        open F, "<$file" or die "Can't open '$file': $!";
        my $html = do { local $/; <F> };
        close F;
        return $html;
    },
    # 500 => sub {},
    # Don't use '500'

  my $p6;
    my $warn = sub{
	open IN, $p6_file or return "open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::O

} = $path;
}

sub write_config_module {
    my $config = get_config();
    my $template = do { local $/; <DATA> };

    my $all_fields = join ",\n    ", map {
        "config_$_";
    } sort keys %$co

name = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->

c->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ 

DULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $modul

ELUDE or
        die "Couldn't open temp prelude ($TEMP_PRELUDE): $!"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comments($program);
    $program =~ s{(["\\])}{\\$1}g;
    $pr

($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__END__

kg->register_hook(BEFORE_INIT => sub {
        my $self = shift;
        $self->{_body} = do { local $/; <STDIN> };
    });

    no strict 'refs';
    *{"$pkg\::jsonrpc"} = \&_jsonrpc;
}

sub _jsonrpc

o 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

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 p

ary, 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__

embedded 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 _

gth);

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 wantarra

o 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

o 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

o 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