Select Code to Download

  package MyClass;
  use base qw(Class::Tangram);
...
  my $foo = MyClass->new( a => 1, b => 2 );
  print $foo->a;  # prints 1
  print $foo->b;  # prints 5

  $foo->b(4);  # note: prints warning
  $foo->set_b(4);

$h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";