diff options
-rw-r--r-- | lib/ManaTools/Shared/disk_backend.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/lib/ManaTools/Shared/disk_backend.pm b/lib/ManaTools/Shared/disk_backend.pm index 199f76af..5be11fc9 100644 --- a/lib/ManaTools/Shared/disk_backend.pm +++ b/lib/ManaTools/Shared/disk_backend.pm @@ -589,6 +589,36 @@ sub walkplugins { #============================================================= +=head2 findplugin + +=head3 INPUT + + $name: Str + ... + +=head3 OUTPUT + + a Plugin or undef + +=head3 DESCRIPTION + + this method will return the first matching Plugin + +=cut + +#============================================================= +sub findplugin { + my $self = shift; + my $name = shift; + my $plugins = $self->plugins; + for my $plugin (@{$plugins}) { + return $plugin if ($plugin->isa('ManaTools::Shared::disk_backend::Plugin::'. $name)); + } + return undef; +} + +#============================================================= + =head2 findpartprop =head3 OUTPUT |