CPAN::Groonga

 from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS

 from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS

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/XS comm

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/XS comm

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/XS comm

nce.com/bapi/asset/v2/public/asset-service/product/get-products?includeEtf=true
my $DATA = do {local $/; <DATA>};

sub _build_base_currencies {
    my ($self) = @_;

    if (my $my_currency_file = $EN

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/XS comm

.
#pod
#pod =cut

sub read_stdin {
    if ( !-t *STDIN && !-z _ ) {
        my $content = do { local $/; <STDIN> };

        # Re-open STDIN as the TTY so that the editor (vim) can use it
        # XX

 $m2p = Markdown::Pod->new;

    if ( $self->{load_from_stdin} ) {
        my $markdown = do { local $/; <STDIN>; };

        my $pod = $m2p->markdown_to_pod(
            encoding => $self->{encoding}

y $fh, $file
            or warn("cannot open $file: $!\n"), next;
        my $markdown = do { local $/; <$fh>; };
        close $fh;

        my $pod = $m2p->markdown_to_pod(
            encoding => 

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/XS comm

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/XS comm

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

nary    = shift;
    our $initsource;
    if(!defined $initsource) {
       $initsource = do { local $/; <DATA> };
    }

    my $binpath = $binary;
    $binpath =~ s/^(.*)\/.*$/$1/mx;

    my $initsc

  = shift;
    our $scriptsource;
    if(!defined $scriptsource) {
       $scriptsource = do { local $/; <DATA> };
    }
    return($scriptsource);
}

1;

__DATA__
package Embed::Persistent;

# p1.pl

testhostcheck;
    return($testhostcheck) if defined $testhostcheck;
    $testhostcheck = do { local $/; <DATA> };
    return($testhostcheck);
}

1;

__DATA__
#!/usr/bin/perl
# nagios: +epn

=head1 NA

heck;
    return($testservicecheck) if defined $testservicecheck;
    $testservicecheck = do { local $/; <DATA> };
    return($testservicecheck);
}

1;

__DATA__
#!/usr/bin/perl
# nagios: +epn

=head1

yout    = shift;
    our $initsource;
    if(!defined $initsource) {
       $initsource = do { local $/; <DATA> };
    }

    my $initscript = $initsource;
    $initscript =~ s/__PREFIX__/$prefix/gmx;

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/XS comm

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/XS comm

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/XS comm