Filename	/usr/share/perl/5.20/Text/Abbrev.pm
Statements	Executed 66 statements in 55µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	29µs	29µs	Text::Abbrev::::abbrevText::Abbrev::abbrev

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Text::Abbrev;
2	1	11µs			require 5.005; # Probably works on earlier versions too.
3	1	500ns			require Exporter;
4
5	1	300ns			our $VERSION = '1.02';
6
7					=head1 NAME
8
9					Text::Abbrev - abbrev - create an abbreviation table from a list
10
11					=head1 SYNOPSIS
12
13					use Text::Abbrev;
14					abbrev $hashref, LIST
15
16
17					=head1 DESCRIPTION
18
19					Stores all unambiguous truncations of each element of LIST
20					as keys in the associative array referenced by C<$hashref>.
21					The values are the original list elements.
22
23					=head1 EXAMPLE
24
25					$hashref = abbrev qw(list edit send abort gripe);
26
27					%hash = abbrev qw(list edit send abort gripe);
28
29					abbrev $hashref, qw(list edit send abort gripe);
30
31					abbrev(*hash, qw(list edit send abort gripe));
32
33					=cut
34
35	1	7µs			@ISA = qw(Exporter);
36	1	400ns			@EXPORT = qw(abbrev);
37
38					# Usage:
39					# abbrev \%foo, LIST;
40					# ...
41					# $long = $foo{$short};
42
43					# spent 29µs within Text::Abbrev::abbrev which was called: # once (29µs+0s) by CGI::Session::parse_dsn at line 149 of CGI/Session.pm sub abbrev {
44	1	200ns			my ($word, $hashref, $glob, %table, $returnvoid);
45
46	1	200ns			@_ or return; # So we don't autovivify onto @_ and trigger warning
47	1	900ns			if (ref($_[0])) { # hash reference preferably
48					$hashref = shift;
49					$returnvoid = 1;
50					} elsif (ref \$_[0] eq 'GLOB') { # is actually a glob (deprecated)
51					$hashref = \%{shift()};
52					$returnvoid = 1;
53					}
54	1	700ns			%{$hashref} = ();
55
56	1	600ns			WORD: foreach $word (@_) {
57	3	5µs			for (my $len = (length $word) - 1; $len > 0; --$len) {
58	15	3µs			my $abbrev = substr($word,0,$len);
59	15	8µs			my $seen = ++$table{$abbrev};
60	15	5µs			if ($seen == 1) { # We're the first word so far to have
61					# this abbreviation.
62					$hashref->{$abbrev} = $word;
63					} elsif ($seen == 2) { # We're the second word to have this
64					# abbreviation, so we can't use it.
65					delete $hashref->{$abbrev};
66					} else { # We're the third word to have this
67					# abbreviation, so skip to the next word.
68					next WORD;
69					}
70					}
71					}
72					# Non-abbreviations always get entered, even if they aren't unique
73	1	300ns			foreach $word (@_) {
74	3	2µs			$hashref->{$word} = $word;
75					}
76	1	100ns			return if $returnvoid;
77	1	5µs			if (wantarray) {
78					%{$hashref};
79					} else {
80	1	200ns			$hashref;
81					}
82					}
83
84	1	3µs			1;