view release on metacpan or  search on metacpan

lib/UMMF/XForm/Merge.pm  view on Meta::CPAN

package UMMF::XForm::Merge;

use 5.6.1;
use strict;
use warnings;

our $AUTHOR = q{ kstephens@users.sourceforge.net 2003/08/12 };
our $VERSION = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); sprintf "%d." . "%03d" x $#r, @r };

=head1 NAME

UMMF::XForm::Merge - Merge ModelElements from multiple Models.

=head1 SYNOPSIS

  use UMMF::XForm::Merge;

  my $xform = UMMF::XForm::Merge->new();
  $model = $xform->apply_Model([ $model1, $model2, ... ]);

=head1 DESCRIPTION

This UML transform merges Models by overlaying elements from $model2 on top of $model1.  ModelElements that have a TaggedValue 'ummf.Merge.placeholder' with a true value, will be used as a placeholder (i.e. a pointer) to a non-placeholder ModelElemen...

=head1 USAGE

=head1 PATTERNS

=head1 EXPORT

None exported.

=head1 AUTHOR

Kurt Stephens, kstephens@sourceforge.net 2003/08/12

=head1 SEE ALSO

L<UMMF::UML::MetaMetaModel|UMMF::UML::MetaMetaModel>

=head1 VERSION

$Revision: 1.6 $

=head1 METHODS

=cut

#######################################################################

use base qw(UMMF::XForm);

#######################################################################

use UMMF::Core::Util qw(:all);
use Carp qw(confess);

#######################################################################

sub initialize
{
  my ($self) = @_;

  $self->SUPER::initialize;

  $self;
}


#######################################################################


sub apply_Model
{
  my ($self, $models) = @_;

  $self->merge_Model($models);
  
}


#######################################################################