[oak perl] sig-beer-east-bay

[Belden Lyman]

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