use XML::Entities;
use XML::Parser::Lite;
-our $VERSION = '0.003'; # VERSION
+our $VERSION = '0.006'; # VERSION
our @EXPORT_OK = qw(parse_string parse_file);
$attr{flags}{$name} = $flags & (1 << $shift) ? 1 : 0;
}
+ for my $bnum (0 .. 12) {
+ $attr{budget_amounts}[$bnum] = delete $attr{"b$bnum"} if $attr{"b$bnum"};
+ }
+
push @categories, \%attr;
}
elsif ($node eq 'ope') { # transaction
=head1 VERSION
-version 0.003
+version 0.006
=head1 SYNOPSIS