[oak perl] sig-beer-east-bay

[George Woolley]

Belden, I shall heed your wise counsel.
I have learned to listen 
when Perl monks and their programs speak.  -- George

On Wednesday 12 February 2003 1:00 pm, Belden Lyman wrote:
> George Woolley wrote:
> > My understanding is
> > that there is a sig-beer-east-bay get together:
> >
> >    at: Cato's Ale House, 3891 Piedmont Ave, Oakland
> >    on: Thursday the 20th at 7:30pm
> >
> > Is this correct?
> > If not, what is correct?
>
> Never fear, George, just ask Perl!
>
> ====
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use Test::More tests => 1;   # T::M is standard w/5.8.0
>
> my $understanding=<<'POSIT';
>
>     there is a sig-beer-east-bay get together:
>
>     at: Cato's Ale House, 3891 Piedmont Ave, Oakland
>     on: Thursday the 20th at 7:30pm
>
> POSIT
>
> if ( ! ok($understanding, $understanding) ) {
>    What->is_correct('?');
> }
>
> {
>    package What;
>    sub is_correct { print "Who knows" . pop() . "\n" }
> }
>
> __END__
> output:
> 1..1
> ok 1 -
> #    there is a sig-beer-east-bay get together:
> #
> #    at: Cato's Ale House, 3891 Piedmont Ave, Oakland
> #    on: Thursday the 20th at 7:30pm
> #
>
> ====
>
> :) See you all on Thursday 20 Feb, 7:30 @ Cato's on Piedmont.
>
> Cato's is a short walk from the Citibank and C of O public
> parking. E-mail me off-list if you need a ride to/from BART.
>
> Belden
>
> _______________________________________________
> Oakland mailing list
> Oakland at mail.pm.org
> http://mail.pm.org/mailman/listinfo/oakland