24 |
# extrae y limpia líneas significativas (i.e. no vacías) |
# extrae y limpia líneas significativas (i.e. no vacías) |
25 |
my @lines = grep ($_, |
my @lines = grep ($_, |
26 |
map ({s/^\s*(.*?)\s*$/$1/g; $_} |
map ({s/^\s*(.*?)\s*$/$1/g; $_} |
27 |
map ($_->stuff, |
map ({s/\s*\#.*$//g; $_} |
28 |
$self->container->content) |
map ($_->stuff, |
29 |
|
$self->container->content) |
30 |
|
) |
31 |
) |
) |
32 |
); |
); |
33 |
|
|
34 |
my %optional = (); |
my %optional = (); |
35 |
my @required = (); |
my @required = (); |
36 |
my $decl = ''; |
my $decl = ''; |
65 |
$decl .= "my $_ = \$ARGS{'\Q$argname\E'};\n"; |
$decl .= "my $_ = \$ARGS{'\Q$argname\E'};\n"; |
66 |
} |
} |
67 |
|
|
68 |
|
use Data::Dumper; print STDERR Dumper [ $parents => \%optional ]; |
69 |
|
|
70 |
$decl .= <<EOF; |
$decl .= <<EOF; |
71 |
foreach (qw(@required)) { |
foreach (qw(@required)) { |
72 |
my \$argname = \$_; |
my \$argname = \$_; |