| UMMF documentation | Contained in the UMMF distribution. |
UMMF::MOF_1_3::Model::VisibilityKind --
1.3
public_visprotected_visprivate_visnewmy $x = UMMF::MOF_1_3::Model::VisibilityKind->new($literal);
Constructs new UMMF::MOF_1_3::Model::VisibilityKind literal value.
$literal must be one of the following:
PUBLIC_VISReturns 'public_vis'.
PROTECTED_VISReturns 'protected_vis'.
PRIVATE_VISReturns 'private_vis'.
__validate_typeUMMF::MOF_1_3::Model::VisibilityKind->__validate_type($value);
Returns true if $value is a valid representation of UMMF::MOF_1_3::Model::VisibilityKind.
__typecheckUMMF::MOF_1_3::Model::VisibilityKind->__typecheck($value, $msg);
Calls confess() with $msg if <UMMF::MOF_1_3::Model::VisibilityKind-__validate_type($value)>> is false.
isaVisibilityKindReturns true if receiver is a UMMF::MOF_1_3::Model::VisibilityKind. Other receivers will return false.
isaModel__VisibilityKindReturns true if receiver is a UMMF::MOF_1_3::Model::VisibilityKind.
Other receivers will return false.
This is the fully qualified version of the isaVisibilityKind method.
__model_name my $name = $obj_or_package->__model_name;
Returns the UML Model name ('Model::VisibilityKind') 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::VisibilityKind; #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( PUBLIC_VIS PROTECTED_VIS PRIVATE_VIS ); our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
sub new { my ($self, @args) = @_; my $x = pop(@args); __typecheck($self, $x, 'UMMF::MOF_1_3::Model::VisibilityKind::new'); $x; } ################################################################# # EnumerationLiterals #
sub PUBLIC_VIS{ 'public_vis'; }
sub PROTECTED_VIS{ 'protected_vis'; }
sub PRIVATE_VIS{ 'private_vis'; } ################################################################# # Validation # my %__literal = ( 'public_vis' => 'public_vis', 'protected_vis' => 'protected_vis', 'private_vis' => 'private_vis', );
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::VisibilityKind' . ": value '$x'") unless __validate_type($self, $x); }
sub isaVisibilityKind { 1 }
sub isaModel__VisibilityKind { 1 } ################################################################# # Introspection #
sub __model_name { 'Model::VisibilityKind' }
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::VisibilityKind::___initialize; $self; }
sub __create { my ($self, @args) = @_; # $DB::single = 1; $self->UMMF::MOF_1_3::Model::VisibilityKind::___create(@args); $self; } ################################################################# # Attributes # ################################################################# # Association # # End of Class VisibilityKind
############################################################################ 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: ###