From 7910fa4e1b96204fc725921d84e23561c178167b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 4 Aug 2010 14:11:03 +0000
Subject: allow loopback modules list to be returned by sub

---
 lib/MDV/Draklive/Loopback.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/MDV/Draklive/Loopback.pm')

diff --git a/lib/MDV/Draklive/Loopback.pm b/lib/MDV/Draklive/Loopback.pm
index ebcc8be..6fb592d 100644
--- a/lib/MDV/Draklive/Loopback.pm
+++ b/lib/MDV/Draklive/Loopback.pm
@@ -122,4 +122,13 @@ our %loop_types;
     },
 );
 
+sub get_loop_modules {
+    my ($live, $type) = @_;
+    my $modules = $loop_types{$_}{modules};
+    my $type = ref $modules;
+    return $type eq 'CODE'  ? $modules->($live) :
+           $type eq 'ARRAY' ? @$modules :
+           ();
+}
+
 1;
-- 
cgit v1.2.1