diff options
author | Maarten Vanraes <alien@mageia.org> | 2016-05-16 14:21:16 +0200 |
---|---|---|
committer | Maarten Vanraes <alien@mageia.org> | 2016-05-16 14:21:16 +0200 |
commit | 5f54bfb9f8576992357326233e9b7658bba14464 (patch) | |
tree | 6251db6d5547a187e25524867091387a07193815 /lib/ManaTools | |
parent | 8e837648693d3a807f6adce72eb69f804dbb916d (diff) | |
download | manatools-5f54bfb9f8576992357326233e9b7658bba14464.tar manatools-5f54bfb9f8576992357326233e9b7658bba14464.tar.gz manatools-5f54bfb9f8576992357326233e9b7658bba14464.tar.bz2 manatools-5f54bfb9f8576992357326233e9b7658bba14464.tar.xz manatools-5f54bfb9f8576992357326233e9b7658bba14464.zip |
states are not in tags, and we will not merge parts
Diffstat (limited to 'lib/ManaTools')
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Part.pm | 58 |
1 files changed, 1 insertions, 57 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Part.pm b/lib/ManaTools/Shared/disk_backend/Part.pm index 59f2cb0c..3e8a3f35 100644 --- a/lib/ManaTools/Shared/disk_backend/Part.pm +++ b/lib/ManaTools/Shared/disk_backend/Part.pm @@ -146,13 +146,6 @@ has 'loaded' => ( default => sub { my $self = shift; return $self; - }, - trigger => sub { - my $self = shift; - my $new = shift; - my $old = shift; - $self->remove_taglinks($old, 'loaded') if (defined $old); - $self->add_taglink($new, 'loaded') if (defined $new); } ); @@ -164,13 +157,6 @@ has 'probed' => ( default => sub { my $self = shift; return $self; - }, - trigger => sub { - my $self = shift; - my $new = shift; - my $old = shift; - $self->remove_taglinks($old, 'probed') if (defined $old); - $self->add_taglink($new, 'probed') if (defined $new); } ); @@ -182,13 +168,6 @@ has 'saved' => ( default => sub { my $self = shift; return $self; - }, - trigger => sub { - my $self = shift; - my $new = shift; - my $old = shift; - $self->remove_taglinks($old, 'saved') if (defined $old); - $self->add_taglink($new, 'saved') if (defined $new); } ); @@ -243,9 +222,6 @@ sub _reverse_tag { return 'next' if ($tag eq 'previous'); return undef if ($tag eq 'first'); return undef if ($tag eq 'last'); - return undef if ($tag eq 'loaded'); - return undef if ($tag eq 'probed'); - return undef if ($tag eq 'saved'); return $tag; } @@ -426,8 +402,7 @@ sub _save { sub save { my $self = shift; - $self->_save(); - # TODO: merge loaded into saved + return $self->_save(); } sub _diff { @@ -494,37 +469,6 @@ sub label { #============================================================= -=head2 is_equal - -=head3 INPUT - - $part: ManaTools::Shared::disk_backend::Part - -=head3 OUTPUT - - bool - -=head3 DESCRIPTION - - this method checks if the given part is equal to self - -=cut - -#============================================================= -sub is_equal { - my $self = shift; - my $part = shift; - - return 0 if ($self->label() ne $part->label()); - return 0 if ($self->type() ne $part->type()); - return 0 if (!$self->ins()->is_equal($part->ins())); - return 0 if (!$self->outs()->is_equal($part->outs())); - - return 1; -} - -#============================================================= - =head2 is_state =head3 INPUT |