Label Factory

Collect input fields into a stable label.

label_factory.pl

use strict;
use warnings;

package UserRecord;

sub make_label {
    my ($name, $role) = @_;
    return "user:$name:$role";
}

package main;

my $role = ;
my $name = "Nia";
my $label = UserRecord::make_label($name, $role);

print "name=$name\n";
print "role=$role\n";
print "label=$label\n";

use strict;
use warnings;

package UserRecord;

sub make_label {
    my ($name, $role) = @_;
    return "user:$name:$role";
}

package main;

my $role = ;
my $name = "Nia";
my $label = UserRecord::make_label($name, $role);

print "name=$name\n";
print "role=$role\n";
print "label=$label\n";

use strict;
use warnings;

package UserRecord;

sub make_label {
    my ($name, $role) = @_;
    return "user:$name:$role";
}

package main;

my $role = ;
my $name = "Nia";
my $label = UserRecord::make_label($name, $role);

print "name=$name\n";
print "role=$role\n";
print "label=$label\n";

label-factory A factory-style routine can gather values and return a formatted label.