1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl
use List::AllUtils;
# astart use base
#use base qw{
# aend include: Exporter Getopt::Long
# aend exclude: grep _ ARGV ENV
# astart use parent
#use parent qw{
# aend include: Exporter Getopt::Long
# aend exclude: grep _ ARGV ENV
# astart choice import
#use List::AllUtils qw{
# aend include: first all uniq :all
# aend exclude: Exporter grep _ ARGV ENV
# astart choice import has word
#use List::AllUtils qw{ uniq
# aend include: first all :all
# aend exclude: uniq
# ahelp max : ^ max \s is \s Method \s of \s List::AllUtils\. $
# ahelp max : ^ RETURN: \s
# ahelp max : ^ \s* max \s+ LIST \s
|
