/usr/local/CPAN/Myco/Myco/Common.pm

• package Myco::Common
  • import_schema
  • attr_kill_handle
  • check_rawdate
• EOF

#  $Id: Common.pm,v 1.1.1.1 2005/12/09 18:08:47 sommerb Exp $

package Myco::Common;

use strict;
use Myco::Exceptions;

use base qw(Class::Tangram);
use Set::Object;

sub import_schema {
    Class::Tangram::import_schema($_[0]);

}

sub attr_kill_handle {
    return \ $_[0]->{$_[1]};
}


my $rawdate_re = qr/^\d{4}-\d{2}-\d{2}$/;
sub check_rawdate {
    Myco::Exception::DataValidation->throw("invalid SQL rawdate")
      unless ${$_[0]} =~ m/$rawdate_re/;
}

1;