1constant input.pl /^use constant$/;" M line:2 roles:used extras:reference 2ONE input.pl /^ONE => 1;$/;" c line:3 roles:def 3diagnostics input.pl /^use diagnostics;$/;" M line:4 roles:used extras:reference 4integer input.pl /^use integer;$/;" M line:5 roles:used extras:reference 5sigtrap input.pl /^use sigtrap qw(SEGV BUS);$/;" M line:6 roles:used extras:reference 6strict input.pl /^use strict qw(subs vars refs);$/;" M line:7 roles:used extras:reference 7subs input.pl /^use subs qw(afunc blurfl);$/;" M line:8 roles:used extras:reference 8warnings input.pl /^use warnings qw(all);$/;" M line:9 roles:used extras:reference 9sort input.pl /^use sort qw(stable _quicksort _mergesort);$/;" M line:10 roles:used extras:reference 10integer input.pl /^no integer;$/;" M line:12 roles:unused extras:reference 11strict input.pl /^no strict 'refs';$/;" M line:13 roles:unused extras:reference 12warnings input.pl /^no warnings;$/;" M line:14 roles:unused extras:reference 13