1 files changed, 30 insertions, 0 deletions

diff --git a/lib/ManaTools/Shared/disk_backend/IOs.pm b/lib/ManaTools/Shared/disk_backend/IOs.pm
index 5a6dfd30..eb562904 100644
--- a/lib/ManaTools/Shared/disk_backend/IOs.pm
+++ b/lib/ManaTools/Shared/disk_backend/IOs.pm
@@ -120,6 +120,36 @@ sub list {
 
 #=============================================================
 
+=head2 is_equal
+
+=head3 INPUT
+
+    $ios: ManaTools::Shared::disk_backend::IOs
+
+=head3 OUTPUT
+
+    bool
+
+=head3 DESCRIPTION
+
+    this method returns true of $self is equal to $ios
+
+=cut
+
+#=============================================================
+sub is_equal {
+    my $self = shift;
+    my $ios = shift;
+
+    return 0 if $self->length() != $ios->length();
+    for my $key (keys %{$self->ios()}) {
+        return 0 if $ios->ios()->{$key} != $self->ios()->{$key};
+    }
+    return 1;
+}
+
+#=============================================================
+
 =head2 append
 
 =head3 INPUT