Hello perl-diddler, will this do?

#! perl
use strict;
use warnings;

package Gromit;

sub new
{
    my ($class) = @_;
    my  %self;
    return bless \%self, $class;
}

sub lv_name
{
    print "in lv_name()\n";
}

sub lv_path
{
    print "in lv_path()\n";
}

sub vg_name
{
    print "in vg_name()\n";
}

sub _mp
{
    print "in _mp()\n";
}

sub lv_size
{
    print "in lv_size()\n";
}

package main;

my $snap_lvh = Gromit->new();

$snap_lvh->$_() for qw(lv_name lv_path vg_name _mp lv_size);
[download]

Output:

in lv_name()
in lv_path()
in vg_name()
in _mp()
in lv_size()
[download]

HTH,