bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

revbank.products: trim whitespace, document comment/whitespace rules

Browse source 
Beginning of a line was already trimmed, courtesy of the whitespace
split. The end of a line was previously not trimmed because of the limit
for split.
This commit is contained in:
Juerd Waalboer 2022-12-26 04:48:38 +01:00
parent 7d5018a5ef
commit eb55aa0eb5
2 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
plugins/products
View file

@ -9,9 +9,10 @@ sub _read_products() {
my $line = 0;
for (slurp $filename) {
$line++;
/^\s*#/ and next;
/\S/ or next;
chomp;
s/^\s+|\s+$//g; # trim
next if /^#/;
next if not length;
my ($ids, $p, $desc) = split " ", $_, 3;
my @ids = split /,/, $ids;
@ -30,8 +31,7 @@ sub _read_products() {
}
my @addons;
unshift @addons, $1 while $desc =~ s/\s+ \+ (\S+) \s*$//x;
unshift @addons, $1 while $desc =~ s/\s+ \+ (\S+)$//x;
$products{$_} = {
id => $ids[0],

14
plugins/products.pod
View file

@ -10,10 +10,20 @@ products - RevBank plugin for selling products
=head1 DESCRIPTION
This plugin turns products from a product list into RevBank commands.
This plugin turns products from a product list into RevBank commands,
that add the respective products as Entries to the current Cart.
=head1 CONFIGURATION
The configuration for this plugin lives in a text file called
C<revbank.products>, which has whitespace-separated columns:
C<revbank.products>.
Whitespace at the beginning or end of a line are ignored. Blank lines are
ignored. Comments are lines that start with C<#> and are also ignored. Note
that a whole line is either a comment or a data line; trailing comments are
not supported and C<#> is a valid character in a product description.
Data lines have whitespace-separated columns:
=head2 Product ids