diff options
| author | Maarten Vanraes <alien@mageia.org> | 2016-05-16 17:58:04 +0200 |
|---|---|---|
| committer | Maarten Vanraes <alien@mageia.org> | 2016-05-16 17:58:04 +0200 |
| commit | 31ed6565f604285b55594029d7bb823b0021a779 (patch) | |
| tree | 2efa9da858bc442f8b8bd09505df3ddfe1c50c89 | |
| parent | 672c6c7d7055c0efa82840aa37fd9d0a1e562727 (diff) | |
| download | manatools-31ed6565f604285b55594029d7bb823b0021a779.tar manatools-31ed6565f604285b55594029d7bb823b0021a779.tar.gz manatools-31ed6565f604285b55594029d7bb823b0021a779.tar.bz2 manatools-31ed6565f604285b55594029d7bb823b0021a779.tar.xz manatools-31ed6565f604285b55594029d7bb823b0021a779.zip | |
missing find_part function
| -rw-r--r-- | lib/ManaTools/Shared/disk_backend/Part.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Part.pm b/lib/ManaTools/Shared/disk_backend/Part.pm index 0b4bb6b6..d30e5864 100644 --- a/lib/ManaTools/Shared/disk_backend/Part.pm +++ b/lib/ManaTools/Shared/disk_backend/Part.pm @@ -368,6 +368,18 @@ sub find_parts { return @res; } +sub find_part { + my $self = shift; + my $parttype = shift; + my @tags = @_; + my $links = $self->links(); + my @res = (); + for my $link (@{$links}) { + return $link->part() if ($link->check($self, $parttype, @tags)); + } + return undef; +} + sub children { my $self = shift; my @children = $self->find_parts(undef, 'child'); |