CPAN::Groonga

$!;
        $data .= do {local $/; <FILE>};
        close FILE;
    }
    $data =~ s/^=/^=/gm;
    open MODULE, $filename
      or die $!;
    my $module_text = do {local $/;<MODULE>};
    close MODUL

g_path for input:\n$!";
    binmode(BLOG, ':utf8') if $self->use_utf8;
    my $blog_text = do {local $/; <BLOG>};
    close BLOG;
    my $page_id = ($blog_text =~ /^page_id:\s+(.*)/m) ? $1 : '';
    m

e for input\n";
    binmode(TEMPLATE, ':utf8') if $self->use_utf8;
    my $template_text = do {local $/; <TEMPLATE>};
    close TEMPLATE;
    return $template_text;
}

sub render {
    my ($self, $tem

lf->{API}->{location};

    open BASIC_OBJ, "< $obj" or _croak "$obj: $!";
    my $code = do { local $/; <BASIC_OBJ> };
    close BASIC_OBJ;

    eval "package $self->{API}->{pkg};\n$code";
    _croak