WSST::Schema::Data - Schema::Data class of WSST

WSST documentation Contained in the WSST distribution.

Index

Code Index:

NAME

Top

WSST::Schema::Data - Schema::Data class of WSST

DESCRIPTION

Top

This class represents the top-level elements of schema.

METHODS

Top

new

Constructor.

company_name

Accessor for the company name.

service_name

Accessor for the service name.

version

Accessor for the version.

title

Accessor for the title.

abstract

Accessor for the abstract.

license

Accessor for the license.

author

Accessor for the author.

see_also

Accessor for the see_also.

Accessor for the copyright.

methods

Accessor for the methods.

meta_spec

Accessor for the meta-spec.

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::Data;

use strict;
use base qw(WSST::Schema::Base);
__PACKAGE__->mk_accessors(qw(company_name service_name version title abstract
                             license author see_also copyright methods));

use WSST::Schema::Method;

our $VERSION = '0.1.1';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    if ($self->{methods}) {
        foreach my $method (@{$self->{methods}}) {
            $method = WSST::Schema::Method->new($method);
        }
    }
    return $self;
}

sub meta_spec {
    my $self = shift;
    $self->{'meta-spec'} = $_[0] if scalar(@_);
    return $self->{'meta-spec'};
}


1;