view release on metacpan or  search on metacpan

bin/wrt-repl  view on Meta::CPAN

  print $OUT $w->{entry_dir} . ":\n";
  print $OUT "\t" . scalar($w->{entries}->all()) . " items\n";
  print $OUT "\t" . scalar($w->{entries}->all_renderable())
             . " renderable entries\n\n";
  print $OUT "Available:\n\t\$w\n";
  print $OUT "\t\$w->{entries}\n";
  print $OUT "\tDumper(\$foo)\n";
  print $OUT "\n";

  my $prompt = "wrt :: $w->{title_prefix} :: ";

  while ( defined ($_ = $term->readline($prompt)) ) {
    my $result = eval($_);
    carp $@ if $@;
    print $OUT $result, "\n" unless $@;
    $term->addhistory($_) if /\S/;
    $prompt = "wrt :: $w->{title_prefix} :: ";
  }
}

1;