| UMMF documentation | Contained in the UMMF distribution. |
UMMF::MOF_1_3::Model::ScopeKind --
1.3
instance_levelclassifer_levelnewmy $x = UMMF::MOF_1_3::Model::ScopeKind->new($literal);
Constructs new UMMF::MOF_1_3::Model::ScopeKind literal value.
$literal must be one of the following:
INSTANCE_LEVELReturns 'instance_level'.
CLASSIFER_LEVELReturns 'classifer_level'.
__validate_typeUMMF::MOF_1_3::Model::ScopeKind->__validate_type($value);
Returns true if $value is a valid representation of UMMF::MOF_1_3::Model::ScopeKind.
__typecheckUMMF::MOF_1_3::Model::ScopeKind->__typecheck($value, $msg);
Calls confess() with $msg if <UMMF::MOF_1_3::Model::ScopeKind-__validate_type($value)>> is false.
isaScopeKindReturns true if receiver is a UMMF::MOF_1_3::Model::ScopeKind. Other receivers will return false.
isaModel__ScopeKindReturns true if receiver is a UMMF::MOF_1_3::Model::ScopeKind.
Other receivers will return false.
This is the fully qualified version of the isaScopeKind method.
__model_name my $name = $obj_or_package->__model_name;
Returns the UML Model name ('Model::ScopeKind') for an object or package of
this Classifier.
__isAbstract$package->__isAbstract;
Returns 0.
__tangram_schemamy $tangram_schema $obj_or_package->__tangram_schema
Returns a HASH ref that describes this Classifier for Tangram.
___initializeInitialize all Attributes and AssociationEnds in a instance of this Classifier. Does not initalize slots in its Generalizations.
See also: __initialize.
__initializeInitialize all slots in this Classifier and all its Generalizations.
See also: ___initialize.
__createCalls all <<create>> Methods for this Classifier and all Generalizations.
See also: ___create.
END OF DOCUMENT
| UMMF documentation | Contained in the UMMF distribution. |
# -*- perl -*- # DO NOT EDIT - This file is generated by UMMF; http://ummf.sourceforge.net # From template: $Id: Perl.txt,v 1.77 2006/05/14 01:40:03 kstephens Exp $ package UMMF::MOF_1_3::Model::ScopeKind; #use 5.6.1; use strict; use warnings; ################################################################# # Version # our $VERSION = do { my @r = (q{1.3} =~ /\d+/g); sprintf "%d." . "%03d" x $#r, @r }; ################################################################# # Documentation #
################################################################# # Dependencies # use Carp qw(croak confess); use Set::Object 1.05; use Class::Multimethods 1.70; use Data::Dumper; use Scalar::Util qw(weaken); use UMMF::MOF_1_3::__ObjectBase qw(:__ummf_array); ################################################################# # Generalizations # use base qw( UMMF::MOF_1_3::__ObjectBase Exporter ); ################################################################# # Exports # our @EXPORT_OK = qw( INSTANCE_LEVEL CLASSIFER_LEVEL ); our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
sub new { my ($self, @args) = @_; my $x = pop(@args); __typecheck($self, $x, 'UMMF::MOF_1_3::Model::ScopeKind::new'); $x; } ################################################################# # EnumerationLiterals #
sub INSTANCE_LEVEL{ 'instance_level'; }
sub CLASSIFER_LEVEL{ 'classifer_level'; } ################################################################# # Validation # my %__literal = ( 'instance_level' => 'instance_level', 'classifer_level' => 'classifer_level', );
sub __validate_type($$) { my ($self, $x) = @_; no warnings; $__literal{$x} ; }
sub __typecheck { my ($self, $x, $msg) = @_; confess("typecheck: $msg: type '" . 'UMMF::MOF_1_3::Model::ScopeKind' . ": value '$x'") unless __validate_type($self, $x); }
sub isaScopeKind { 1 }
sub isaModel__ScopeKind { 1 } ################################################################# # Introspection #
sub __model_name { 'Model::ScopeKind' }
sub __isAbstract { 0; } my $__tangram_schema;
sub __tangram_schema { my ($self) = @_; $__tangram_schema ||= { }; } ################################################################# # Class Attributes # ################################################################# # Class Associations # ################################################################# # Initialization #
sub ___initialize { my ($self) = @_; # Attributes # Associations $self; } my $__initialize_use;
sub __initialize { my ($self) = @_; # $DB::single = 1; unless ( ! $__initialize_use ) { $__initialize_use = 1; } $self->UMMF::MOF_1_3::Model::ScopeKind::___initialize; $self; }
sub __create { my ($self, @args) = @_; # $DB::single = 1; $self->UMMF::MOF_1_3::Model::ScopeKind::___create(@args); $self; } ################################################################# # Attributes # ################################################################# # Association # # End of Class ScopeKind
############################################################################ 1; # is true! ############################################################################ ### Keep these comments at end of file: kstephens@users.sourceforge.net 2003/04/06 ### ### Local Variables: ### ### mode:perl ### ### perl-indent-level:2 ### ### perl-continued-statement-offset:0 ### ### perl-brace-offset:0 ### ### perl-label-offset:0 ### ### End: ###