From 5f54bfb9f8576992357326233e9b7658bba14464 Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Mon, 16 May 2016 14:21:16 +0200 Subject: states are not in tags, and we will not merge parts --- lib/ManaTools/Shared/disk_backend/Part.pm | 58 +------------------------------ 1 file changed, 1 insertion(+), 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 -- cgit v1.2.1