WSST::Schema::Base - Base class for Schema elements

WSST documentation Contained in the WSST distribution.

Index

Code Index:

NAME

Top

WSST::Schema::Base - Base class for Schema elements

DESCRIPTION

Top

This is a base class for schema elements.

METHODS

Top

new

Constructor.

SEE ALSO

Top

http://code.google.com/p/wsst/

AUTHORS

Top

Mitsuhisa Oshikawa <mitsuhisa [at] gmail.com> Yusuke Kawasaki <u-suke [at] kawa.net>

COPYRIGHT AND LICENSE

Top

Copyright 2008 WSS Project Team

WSST documentation Contained in the WSST distribution. 
package WSST::Schema::Base;

use strict;
use base qw(Class::Accessor::Fast);

use constant BOOL_FIELDS => ();

our $VERSION = '0.1.1';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    foreach my $fld ($class->BOOL_FIELDS) {
        $self->{$fld} = ($self->{$fld} && $self->{$fld} eq "true");
    }
    return $self;
}


1;