projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d1137995d9745ab45c5a57d8bf1b6582c7cc30a3
[freeside.git]
/
FS
/
bin
/
freeside-yori
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
use FS::Yori qw(reports report);
6
7
if ( @ARGV ) {
8
while ( my $report = shift ) {
9
print report($report). "\n";
10
}
11
} else {
12
print join("\n", reports() ). "\n";
13
}
14
15
16
1;