/usr/share/perl5/Foomatic/UIElem.pm is in foomatic-db-engine 4.0.13-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | # TODO:
# sort by section and process that way
# order dep specific to particular options
# UI constraints
# various common non-UI options
# PJL options?
package Foomatic::UIElem;
# Call with name=>foo, label=>Foo, type=>Boolean or PickOne or PickMany
sub new {
my ($type, %vals) = @_;
return bless \%vals;
}
# default=>value
# order_real=>value
# order_section=>value
# order_keyword=>value
sub set {
my ($this, $var, $val) = @_;
$this->{$var} = $val;
}
sub add_option {
my ($this, $option, $label, $ps) = @_;
$ps =~ s!\r!!g;
push (@{$this->{'options'}},
{'option' => $option,
'label' => $label,
'snippet' => $ps});
}
1;
|