Lines Matching full:my

4 my $USAGE = <<__EOF__;
13 my $type_field = 2;
17 my %force_space = (
27 my @force_omit = (
37 my @force_compose = (
46     my $args = join ' ', @ARGV;
50     my %types;
51     my $arg;
56     my %out = ( 'types' => \%types );
58     my %force_compose;
59     foreach my $comp (@force_compose) {
60         my ($lo,$hi) = @$comp;
61         for (my $ch = $lo; $ch <= $hi; ++$ch) {
65     my %force_omit;
66     foreach my $comp (@force_omit) {
67         my ($lo,$hi) = @$comp;
68         for (my $ch = $lo; $ch <= $hi; ++$ch) {
73     my ($sec,$min,$hour,$mday,$mon,$year) = gmtime($ENV{SOURCE_DATE_EPOCH} // time());
74     my @month = ( "Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec" );
78     my $last_code = 0;
79     my $start_range = 0;
83         my @fields = split /;/;
85         my ($lo_code, $hi_code);
86         my $codes = $fields[0];
105         my $type = $fields[$type_field];
118     my ($out, $code, $type) = @_;
119     my $type_ok = ($type and ${${$out}{types}}{$type});
121     my $prev_code = $$out{prev_code};
133     my ($out, $code, $type) = @_;
141     my ($out, $code) = @_;