Help for this page

Select Code to Download


  1. or download this
    # Only ever produces 3 lines
sub print_shape {
...
  print $self->{shape}->{line2}."\n";
  print $self->{shape}->{line3}."\n";
}
  2. or download this
    # Allows for arbitary number of lines
# (as long as they are sequentially numbered from 1)
...
    eval($em);
  }
}
  3. or download this
    my $box = [
  '----',
  '|  |',
  '----'
];
  4. or download this
    sub print_shape {
  my $self=shift;
...
    print "$_\n";
  } 
}