Lines Matching refs:mode

22 my $mode = shift || "display";
27 if ($mode eq "display") {
28     undef $mode if @ARGV;
29 } elsif ($mode eq "move") {
32     undef $mode if $from < 6 || $from > 17;
33     undef $mode if $to   < 6 || $to   > 17;
34     print STDERR "ERROR: parameters out of range\n\n" unless $mode;
35 } elsif ($mode eq 'dump') {
38         undef $mode if $limit < 1;
39         print STDERR "ERROR: invalid limit (should be a positive number)\n\n" unless $mode;
41 } elsif ($mode eq 'keys') {
53             undef $mode if $limit < 1;
54             print STDERR "ERROR: invalid limit (should be a positive number)\n\n" unless $mode;
57 } elsif ($mode eq 'stats') {
59 } elsif ($mode eq 'settings') {
61 } elsif ($mode eq 'sizes') {
64     undef $mode;
67 undef $mode if @ARGV;
84 " unless $addr && $mode;
108 if ($mode eq 'dump') {
160 if ($mode eq 'keys') {
179 if ($mode eq 'stats') {
199 if ($mode eq 'settings') {
219 if ($mode eq 'sizes') {