diff options
Diffstat (limited to 'lib/MDV/Draklive/Live.pm')
| -rw-r--r-- | lib/MDV/Draklive/Live.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/MDV/Draklive/Live.pm b/lib/MDV/Draklive/Live.pm index 1f3bd3d..7d5a3fd 100644 --- a/lib/MDV/Draklive/Live.pm +++ b/lib/MDV/Draklive/Live.pm @@ -7,4 +7,9 @@ sub new { bless {}, $class; } +sub get_name { + my ($live) = @_; + join('-', grep { $_ } @{$live->{settings}}{qw(name product version desktop region media arch)}); +} + 1; |