Commenting Notes. This does need a cleanup in future though. Too many tabs.
This commit is contained in:
1 parent
55eb8d282c
commit
c66f763549
1 file changed
+2
@@ -8,6 +8,7 @@ use warnings;
|
|||||||
package Parser::Config;
|
package Parser::Config;
|
||||||
|
|
||||||
# Create a new instance.
|
# Create a new instance.
|
||||||
|
# Funny how we still haven't taken advantage of Mouse/Moose yet.
|
||||||
sub new
|
sub new
|
||||||
{
|
{
|
||||||
my $class = shift;
|
my $class = shift;
|
||||||
@@ -76,6 +77,7 @@ sub parse
|
|||||||
my @sblk = split('@@@', $blk);
|
my @sblk = split('@@@', $blk);
|
||||||
|
|
||||||
# Check to see if this config option already exists.
|
# Check to see if this config option already exists.
|
||||||
|
# Whose great idea was it to tab over this far? It screws with vim. :/
|
||||||
if (defined $rs{$sblk[0]}{$sblk[1]}{$ebuf[0]}) {
|
if (defined $rs{$sblk[0]}{$sblk[1]}{$ebuf[0]}) {
|
||||||
# It does, so merely push this second one to the existing array.
|
# It does, so merely push this second one to the existing array.
|
||||||
push(@{ $rs{$sblk[0]}{$sblk[1]}{$ebuf[0]} }, $param);
|
push(@{ $rs{$sblk[0]}{$sblk[1]}{$ebuf[0]} }, $param);
|
||||||
|
|||||||
Reference in new issue
Block a user