ACIL FM

Nama	Ukuran	Aksi
BlackBox.pm	84.66 MB	View DL Edit
Checker.pm	5.3 MB	View DL Edit
Debug.pm	4.52 MB	View DL Edit
DumpAsText.pm	3.94 MB	View DL Edit
DumpAsXML.pm	4.45 MB	View DL Edit
HTML.pm	33.94 MB	View DL Edit
HTMLBatch.pm	39.7 MB	View DL Edit
HTMLLegacy.pm	2.69 MB	View DL Edit
JustPod.pm	9.41 MB	View DL Edit
LinkSection.pm	4.2 MB	View DL Edit
Methody.pm	3.49 MB	View DL Edit
Progress.pm	2.36 MB	View DL Edit
PullParser.pm	25.13 MB	View DL Edit
PullParserEndToken.pm	2.82 MB	View DL Edit
PullParserStartToken.pm	4.05 MB	View DL Edit
PullParserTextToken.pm	3.28 MB	View DL Edit
PullParserToken.pm	3.91 MB	View DL Edit
RTF.pm	23 MB	View DL Edit
Search.pm	35 MB	View DL Edit
SimpleTree.pm	4.52 MB	View DL Edit
Subclassing.pod	32.92 MB	View DL Edit
Text.pm	4.98 MB	View DL Edit
TextContent.pm	2.46 MB	View DL Edit
TiedOutFH.pm	2.69 MB	View DL Edit
Transcode.pm	736 B	View DL Edit
TranscodeDumb.pm	2.63 MB	View DL Edit
TranscodeSmart.pm	715 B	View DL Edit
XHTML.pm	25.97 MB	View DL Edit
XMLOutStream.pm	4.56 MB	View DL Edit

Edit file: /usr/share/perl5/vendor_perl/Pod/Simple/TiedOutFH.pm

use strict;
package Pod::Simple::TiedOutFH;
use Symbol ('gensym');
use Carp ();
use vars qw($VERSION );
$VERSION = '3.42';

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_on { # some horrible frightening things are encapsulated in here
  my $class = shift;
  $class = ref($class) || $class;
  
  Carp::croak "Usage: ${class}->handle_on(\$somescalar)" unless @_;
  
  my $x = (defined($_[0]) and ref($_[0]))
    ? $_[0]
    : ( \( $_[0] ) )[0]
  ;
  $$x = '' unless defined $$x;
  
  #Pod::Simple::DEBUG and print STDERR "New $class handle on $x = \"$$x\"\n";
  
  my $new = gensym();
  tie *$new, $class, $x;
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub TIEHANDLE {  # Ties to just a scalar ref
  my($class, $scalar_ref) = @_;
  $$scalar_ref = '' unless defined $$scalar_ref;
  return bless \$scalar_ref,  ref($class) || $class;
}

sub PRINT {
  my $it = shift;
  foreach my $x (@_) { $$$it .= $x }

#Pod::Simple::DEBUG > 10 and print STDERR " appended to $$it = \"$$$it\"\n";

return 1;
}

sub FETCH {
  return ${$_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shift;
  $$$it .= sprintf $format, @_;
  return 1;
}

sub FILENO { ${ $_[0] } + 100 } # just to produce SOME number

sub CLOSE { 1 }

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

Chole

* 1 large red onion
 * 2 tomatillos
 * 4 or 5 roma tomatoes (optionally with the pulp discarded)
 * 1 tablespoons chopped ginger root (or more, to taste)
 * 2 tablespoons canola oil (or vegetable oil)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to taste
 * Salt, to taste (probably quite a bit)
 * 2 (15-ounce) cans chick peas or garbanzo beans, drained and rinsed
 * juice of one smallish lime
 * a dash of balsamic vinegar (to taste)
 * cooked rice, preferably long-grain white rice (whether plain,
    basmati rice, jasmine rice, or even a mild pilaf)

In a blender or food processor, puree the onions, tomatoes, tomatillos,
and ginger root.  You can even do it with a Braun hand "mixer", if you
chop things finer to start with, and work at it.

In a saucepan set over moderate heat, warm the oil until hot.

Add the puree and the balsamic vinegar, and cook, stirring occasionally,
for 20 to 40 minutes. (Cooking it longer will make it sweeter.)

Add the Garam Masala, chili powder, and cook, stirring occasionally, for
5 minutes.

Add the salt and chick peas and cook, stirring, until heated through.

Stir in the lime juice, and optionally one or two teaspoons of tahini.
You can let it simmer longer, depending on how much softer you want the
garbanzos to get.

Serve over rice, like a curry.

Yields 5 to 7 servings.

Batal