Profile of DateTime/Locale/en.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For xt/tapper-mcp-scheduler-with-db-longrun.t
Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:23:59 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/DateTime/Locale/en.pm
Statements | Executed 105 statements in 1.23ms

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 12µs | 14µs | DateTime::Locale::en::::BEGIN@21DateTime::Locale::en::BEGIN@21
1 | 1 | 1 | 7µs | 1.79ms | DateTime::Locale::en::::BEGIN@25DateTime::Locale::en::BEGIN@25
1 | 1 | 1 | 6µs | 14µs | DateTime::Locale::en::::BEGIN@22DateTime::Locale::en::BEGIN@22
1 | 1 | 1 | 6µs | 8µs | DateTime::Locale::en::::BEGIN@23DateTime::Locale::en::BEGIN@23
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_available_formatsDateTime::Locale::en::_available_formats
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_EEEdDateTime::Locale::en::_format_for_EEEd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_HmDateTime::Locale::en::_format_for_Hm
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_HmsDateTime::Locale::en::_format_for_Hms
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MDateTime::Locale::en::_format_for_M
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MEdDateTime::Locale::en::_format_for_MEd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MMMDateTime::Locale::en::_format_for_MMM
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MMMEdDateTime::Locale::en::_format_for_MMMEd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MMMMEdDateTime::Locale::en::_format_for_MMMMEd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MMMMdDateTime::Locale::en::_format_for_MMMMd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MMMdDateTime::Locale::en::_format_for_MMMd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_MdDateTime::Locale::en::_format_for_Md
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_dDateTime::Locale::en::_format_for_d
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_hmDateTime::Locale::en::_format_for_hm
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_msDateTime::Locale::en::_format_for_ms
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yDateTime::Locale::en::_format_for_y
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yMDateTime::Locale::en::_format_for_yM
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yMEdDateTime::Locale::en::_format_for_yMEd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yMMMDateTime::Locale::en::_format_for_yMMM
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yMMMEdDateTime::Locale::en::_format_for_yMMMEd
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yMMMMDateTime::Locale::en::_format_for_yMMMM
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yQDateTime::Locale::en::_format_for_yQ
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::_format_for_yQQQDateTime::Locale::en::_format_for_yQQQ
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::am_pm_abbreviatedDateTime::Locale::en::am_pm_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::cldr_versionDateTime::Locale::en::cldr_version
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::date_format_fullDateTime::Locale::en::date_format_full
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::date_format_longDateTime::Locale::en::date_format_long
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::date_format_mediumDateTime::Locale::en::date_format_medium
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::date_format_shortDateTime::Locale::en::date_format_short
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::datetime_formatDateTime::Locale::en::datetime_format
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::day_format_abbreviatedDateTime::Locale::en::day_format_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::day_format_narrowDateTime::Locale::en::day_format_narrow
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::day_format_wideDateTime::Locale::en::day_format_wide
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::day_stand_alone_abbreviatedDateTime::Locale::en::day_stand_alone_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::day_stand_alone_narrowDateTime::Locale::en::day_stand_alone_narrow
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::day_stand_alone_wideDateTime::Locale::en::day_stand_alone_wide
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::era_abbreviatedDateTime::Locale::en::era_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::era_narrowDateTime::Locale::en::era_narrow
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::era_wideDateTime::Locale::en::era_wide
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::first_day_of_weekDateTime::Locale::en::first_day_of_week
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::month_format_abbreviatedDateTime::Locale::en::month_format_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::month_format_narrowDateTime::Locale::en::month_format_narrow
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::month_format_wideDateTime::Locale::en::month_format_wide
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::month_stand_alone_abbreviatedDateTime::Locale::en::month_stand_alone_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::month_stand_alone_narrowDateTime::Locale::en::month_stand_alone_narrow
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::month_stand_alone_wideDateTime::Locale::en::month_stand_alone_wide
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::quarter_format_abbreviatedDateTime::Locale::en::quarter_format_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::quarter_format_narrowDateTime::Locale::en::quarter_format_narrow
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::quarter_format_wideDateTime::Locale::en::quarter_format_wide
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::quarter_stand_alone_abbreviatedDateTime::Locale::en::quarter_stand_alone_abbreviated
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::quarter_stand_alone_narrowDateTime::Locale::en::quarter_stand_alone_narrow
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::quarter_stand_alone_wideDateTime::Locale::en::quarter_stand_alone_wide
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::time_format_fullDateTime::Locale::en::time_format_full
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::time_format_longDateTime::Locale::en::time_format_long
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::time_format_mediumDateTime::Locale::en::time_format_medium
0 | 0 | 0 | 0s | 0s | DateTime::Locale::en::::time_format_shortDateTime::Locale::en::time_format_short

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

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | ###########################################################################
2 |  |  |  |  | #
3 |  |  |  |  | # This file is auto-generated by the Perl DateTime Suite locale
4 |  |  |  |  | # generator (0.05). This code generator comes with the
5 |  |  |  |  | # DateTime::Locale distribution in the tools/ directory, and is called
6 |  |  |  |  | # generate-from-cldr.
7 |  |  |  |  | #
8 |  |  |  |  | # This file as generated from the CLDR XML locale data. See the
9 |  |  |  |  | # LICENSE.cldr file included in this distribution for license details.
10 |  |  |  |  | #
11 |  |  |  |  | # This file was generated from the source file en.xml
12 |  |  |  |  | # The source file version number was 1.234, generated on
13 |  |  |  |  | # 2009/06/17 16:15:14.
14 |  |  |  |  | #
15 |  |  |  |  | # Do not edit this file directly.
16 |  |  |  |  | #
17 |  |  |  |  | ###########################################################################
18 |  |  |  |  |
19 |  |  |  |  | package DateTime::Locale::en;
20 |  |  |  |  |
21 | 3 | 18µs | 2 | 16µs | # spent 14µs (12+2) within DateTime::Locale::en::BEGIN@21 which was called: # once (12µs+2µs) by base::import at line 21 use strict; # spent 14µs making 1 call to DateTime::Locale::en::BEGIN@21 # spent 2µs making 1 call to strict::import
22 | 3 | 16µs | 2 | 21µs | # spent 14µs (6+7) within DateTime::Locale::en::BEGIN@22 which was called: # once (6µs+7µs) by base::import at line 22 use warnings; # spent 14µs making 1 call to DateTime::Locale::en::BEGIN@22 # spent 7µs making 1 call to warnings::import
23 | 3 | 17µs | 2 | 9µs | # spent 8µs (6+1) within DateTime::Locale::en::BEGIN@23 which was called: # once (6µs+1µs) by base::import at line 23 use utf8; # spent 8µs making 1 call to DateTime::Locale::en::BEGIN@23 # spent 2µs making 1 call to utf8::import
24 |  |  |  |  |
25 | 3 | 1.10ms | 2 | 1.79ms | # spent 1.79ms (7µs+1.78) within DateTime::Locale::en::BEGIN@25 which was called: # once (7µs+1.78ms) by base::import at line 25 use base 'DateTime::Locale::root'; # spent 1.79ms making 1 call to DateTime::Locale::en::BEGIN@25 # spent 1.78ms making 1 call to base::import, recursion: max depth 1, sum of overlapping time 1.78ms
26 |  |  |  |  |
27 |  |  |  |  | sub cldr_version { return "1\.7\.1" }
28 |  |  |  |  |
29 |  |  |  |  | {
30 | 2 | 2µs |  |  | my $am_pm_abbreviated = [ "AM", "PM" ];
31 |  |  |  |  | sub am_pm_abbreviated { return $am_pm_abbreviated }
32 |  |  |  |  | }
33 |  |  |  |  | {
34 | 2 | 700ns |  |  | my $date_format_full = "EEEE\,\ MMMM\ d\,\ y";
35 |  |  |  |  | sub date_format_full { return $date_format_full }
36 |  |  |  |  | }
37 |  |  |  |  |
38 |  |  |  |  | {
39 | 2 | 700ns |  |  | my $date_format_long = "MMMM\ d\,\ y";
40 |  |  |  |  | sub date_format_long { return $date_format_long }
41 |  |  |  |  | }
42 |  |  |  |  |
43 |  |  |  |  | {
44 | 2 | 500ns |  |  | my $date_format_medium = "MMM\ d\,\ y";
45 |  |  |  |  | sub date_format_medium { return $date_format_medium }
46 |  |  |  |  | }
47 |  |  |  |  |
48 |  |  |  |  | {
49 | 2 | 400ns |  |  | my $date_format_short = "M\/d\/yy";
50 |  |  |  |  | sub date_format_short { return $date_format_short }
51 |  |  |  |  | }
52 |  |  |  |  |
53 |  |  |  |  | {
54 | 2 | 500ns |  |  | my $datetime_format = "\{1\}\ \{0\}";
55 |  |  |  |  | sub datetime_format { return $datetime_format }
56 |  |  |  |  | }
57 |  |  |  |  |
58 |  |  |  |  | {
59 | 2 | 2µs |  |  | my $day_format_abbreviated = [ "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun" ];
60 |  |  |  |  | sub day_format_abbreviated { return $day_format_abbreviated }
61 |  |  |  |  | }
62 |  |  |  |  |
63 |  |  |  |  | sub day_format_narrow { $_[0]->day_stand_alone_narrow() }
64 |  |  |  |  |
65 |  |  |  |  | {
66 | 2 | 1µs |  |  | my $day_format_wide = [ "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday" ];
67 |  |  |  |  | sub day_format_wide { return $day_format_wide }
68 |  |  |  |  | }
69 |  |  |  |  |
70 |  |  |  |  | sub day_stand_alone_abbreviated { $_[0]->day_format_abbreviated() }
71 |  |  |  |  |
72 |  |  |  |  | {
73 | 2 | 1µs |  |  | my $day_stand_alone_narrow = [ "M", "T", "W", "T", "F", "S", "S" ];
74 |  |  |  |  | sub day_stand_alone_narrow { return $day_stand_alone_narrow }
75 |  |  |  |  | }
76 |  |  |  |  |
77 |  |  |  |  | sub day_stand_alone_wide { $_[0]->day_format_wide() }
78 |  |  |  |  |
79 |  |  |  |  | {
80 | 2 | 800ns |  |  | my $era_abbreviated = [ "BC", "AD" ];
81 |  |  |  |  | sub era_abbreviated { return $era_abbreviated }
82 |  |  |  |  | }
83 |  |  |  |  | {
84 | 2 | 700ns |  |  | my $era_narrow = [ "B", "A" ];
85 |  |  |  |  | sub era_narrow { return $era_narrow }
86 |  |  |  |  | }
87 |  |  |  |  | {
88 | 2 | 1µs |  |  | my $era_wide = [ "Before\ Christ", "Anno\ Domini" ];
89 |  |  |  |  | sub era_wide { return $era_wide }
90 |  |  |  |  | }
91 |  |  |  |  | {
92 | 2 | 600ns |  |  | my $first_day_of_week = "1";
93 |  |  |  |  | sub first_day_of_week { return $first_day_of_week }
94 |  |  |  |  | }
95 |  |  |  |  |
96 |  |  |  |  | {
97 | 2 | 2µs |  |  | my $month_format_abbreviated = [ "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" ];
98 |  |  |  |  | sub month_format_abbreviated { return $month_format_abbreviated }
99 |  |  |  |  | }
100 |  |  |  |  |
101 |  |  |  |  | sub month_format_narrow { $_[0]->month_stand_alone_narrow() }
102 |  |  |  |  |
103 |  |  |  |  | {
104 | 2 | 2µs |  |  | my $month_format_wide = [ "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" ];
105 |  |  |  |  | sub month_format_wide { return $month_format_wide }
106 |  |  |  |  | }
107 |  |  |  |  |
108 |  |  |  |  | sub month_stand_alone_abbreviated { $_[0]->month_format_abbreviated() }
109 |  |  |  |  |
110 |  |  |  |  | {
111 | 2 | 10µs |  |  | my $month_stand_alone_narrow = [ "J", "F", "M", "A", "M", "J", "J", "A", "S", "O", "N", "D" ];
112 |  |  |  |  | sub month_stand_alone_narrow { return $month_stand_alone_narrow }
113 |  |  |  |  | }
114 |  |  |  |  |
115 |  |  |  |  | sub month_stand_alone_wide { $_[0]->month_format_wide() }
116 |  |  |  |  |
117 |  |  |  |  | {
118 | 2 | 1µs |  |  | my $quarter_format_abbreviated = [ "Q1", "Q2", "Q3", "Q4" ];
119 |  |  |  |  | sub quarter_format_abbreviated { return $quarter_format_abbreviated }
120 |  |  |  |  | }
121 |  |  |  |  |
122 |  |  |  |  | sub quarter_format_narrow { $_[0]->quarter_stand_alone_narrow() }
123 |  |  |  |  |
124 |  |  |  |  | {
125 | 2 | 1µs |  |  | my $quarter_format_wide = [ "1st\ quarter", "2nd\ quarter", "3rd\ quarter", "4th\ quarter" ];
126 |  |  |  |  | sub quarter_format_wide { return $quarter_format_wide }
127 |  |  |  |  | }
128 |  |  |  |  |
129 |  |  |  |  | sub quarter_stand_alone_abbreviated { $_[0]->quarter_format_abbreviated() }
130 |  |  |  |  |
131 |  |  |  |  | {
132 | 2 | 1µs |  |  | my $quarter_stand_alone_narrow = [ "1", "2", "3", "4" ];
133 |  |  |  |  | sub quarter_stand_alone_narrow { return $quarter_stand_alone_narrow }
134 |  |  |  |  | }
135 |  |  |  |  |
136 |  |  |  |  | sub quarter_stand_alone_wide { $_[0]->quarter_format_wide() }
137 |  |  |  |  |
138 |  |  |  |  | {
139 | 2 | 600ns |  |  | my $time_format_full = "h\:mm\:ss\ a\ zzzz";
140 |  |  |  |  | sub time_format_full { return $time_format_full }
141 |  |  |  |  | }
142 |  |  |  |  |
143 |  |  |  |  | {
144 | 2 | 500ns |  |  | my $time_format_long = "h\:mm\:ss\ a\ z";
145 |  |  |  |  | sub time_format_long { return $time_format_long }
146 |  |  |  |  | }
147 |  |  |  |  |
148 |  |  |  |  | {
149 | 2 | 700ns |  |  | my $time_format_medium = "h\:mm\:ss\ a";
150 |  |  |  |  | sub time_format_medium { return $time_format_medium }
151 |  |  |  |  | }
152 |  |  |  |  |
153 |  |  |  |  | {
154 | 2 | 500ns |  |  | my $time_format_short = "h\:mm\ a";
155 |  |  |  |  | sub time_format_short { return $time_format_short }
156 |  |  |  |  | }
157 |  |  |  |  |
158 |  |  |  |  | {
159 | 2 | 500ns |  |  | my $_format_for_EEEd = "d\ EEE";
160 |  |  |  |  | sub _format_for_EEEd { return $_format_for_EEEd }
161 |  |  |  |  | }
162 |  |  |  |  |
163 |  |  |  |  | {
164 | 2 | 700ns |  |  | my $_format_for_Hm = "H\:mm";
165 |  |  |  |  | sub _format_for_Hm { return $_format_for_Hm }
166 |  |  |  |  | }
167 |  |  |  |  |
168 |  |  |  |  | {
169 | 2 | 500ns |  |  | my $_format_for_Hms = "H\:mm\:ss";
170 |  |  |  |  | sub _format_for_Hms { return $_format_for_Hms }
171 |  |  |  |  | }
172 |  |  |  |  |
173 |  |  |  |  | {
174 | 2 | 600ns |  |  | my $_format_for_M = "L";
175 |  |  |  |  | sub _format_for_M { return $_format_for_M }
176 |  |  |  |  | }
177 |  |  |  |  |
178 |  |  |  |  | {
179 | 2 | 600ns |  |  | my $_format_for_MEd = "E\,\ M\/d";
180 |  |  |  |  | sub _format_for_MEd { return $_format_for_MEd }
181 |  |  |  |  | }
182 |  |  |  |  |
183 |  |  |  |  | {
184 | 2 | 700ns |  |  | my $_format_for_MMM = "LLL";
185 |  |  |  |  | sub _format_for_MMM { return $_format_for_MMM }
186 |  |  |  |  | }
187 |  |  |  |  |
188 |  |  |  |  | {
189 | 2 | 500ns |  |  | my $_format_for_MMMEd = "E\,\ MMM\ d";
190 |  |  |  |  | sub _format_for_MMMEd { return $_format_for_MMMEd }
191 |  |  |  |  | }
192 |  |  |  |  |
193 |  |  |  |  | {
194 | 2 | 600ns |  |  | my $_format_for_MMMMEd = "E\,\ MMMM\ d";
195 |  |  |  |  | sub _format_for_MMMMEd { return $_format_for_MMMMEd }
196 |  |  |  |  | }
197 |  |  |  |  |
198 |  |  |  |  | {
199 | 2 | 500ns |  |  | my $_format_for_MMMMd = "MMMM\ d";
200 |  |  |  |  | sub _format_for_MMMMd { return $_format_for_MMMMd }
201 |  |  |  |  | }
202 |  |  |  |  |
203 |  |  |  |  | {
204 | 2 | 600ns |  |  | my $_format_for_MMMd = "MMM\ d";
205 |  |  |  |  | sub _format_for_MMMd { return $_format_for_MMMd }
206 |  |  |  |  | }
207 |  |  |  |  |
208 |  |  |  |  | {
209 | 2 | 600ns |  |  | my $_format_for_Md = "M\/d";
210 |  |  |  |  | sub _format_for_Md { return $_format_for_Md }
211 |  |  |  |  | }
212 |  |  |  |  |
213 |  |  |  |  | {
214 | 2 | 500ns |  |  | my $_format_for_d = "d";
215 |  |  |  |  | sub _format_for_d { return $_format_for_d }
216 |  |  |  |  | }
217 |  |  |  |  |
218 |  |  |  |  | {
219 | 2 | 500ns |  |  | my $_format_for_hm = "h\:mm\ a";
220 |  |  |  |  | sub _format_for_hm { return $_format_for_hm }
221 |  |  |  |  | }
222 |  |  |  |  |
223 |  |  |  |  | {
224 | 2 | 800ns |  |  | my $_format_for_ms = "mm\:ss";
225 |  |  |  |  | sub _format_for_ms { return $_format_for_ms }
226 |  |  |  |  | }
227 |  |  |  |  |
228 |  |  |  |  | {
229 | 2 | 600ns |  |  | my $_format_for_y = "y";
230 |  |  |  |  | sub _format_for_y { return $_format_for_y }
231 |  |  |  |  | }
232 |  |  |  |  |
233 |  |  |  |  | {
234 | 2 | 700ns |  |  | my $_format_for_yM = "M\/yyyy";
235 |  |  |  |  | sub _format_for_yM { return $_format_for_yM }
236 |  |  |  |  | }
237 |  |  |  |  |
238 |  |  |  |  | {
239 | 2 | 500ns |  |  | my $_format_for_yMEd = "EEE\,\ M\/d\/yyyy";
240 |  |  |  |  | sub _format_for_yMEd { return $_format_for_yMEd }
241 |  |  |  |  | }
242 |  |  |  |  |
243 |  |  |  |  | {
244 | 2 | 600ns |  |  | my $_format_for_yMMM = "MMM\ y";
245 |  |  |  |  | sub _format_for_yMMM { return $_format_for_yMMM }
246 |  |  |  |  | }
247 |  |  |  |  |
248 |  |  |  |  | {
249 | 2 | 600ns |  |  | my $_format_for_yMMMEd = "EEE\,\ MMM\ d\,\ y";
250 |  |  |  |  | sub _format_for_yMMMEd { return $_format_for_yMMMEd }
251 |  |  |  |  | }
252 |  |  |  |  |
253 |  |  |  |  | {
254 | 2 | 700ns |  |  | my $_format_for_yMMMM = "MMMM\ y";
255 |  |  |  |  | sub _format_for_yMMMM { return $_format_for_yMMMM }
256 |  |  |  |  | }
257 |  |  |  |  |
258 |  |  |  |  | {
259 | 2 | 600ns |  |  | my $_format_for_yQ = "Q\ yyyy";
260 |  |  |  |  | sub _format_for_yQ { return $_format_for_yQ }
261 |  |  |  |  | }
262 |  |  |  |  |
263 |  |  |  |  | {
264 | 2 | 700ns |  |  | my $_format_for_yQQQ = "QQQ\ y";
265 |  |  |  |  | sub _format_for_yQQQ { return $_format_for_yQQQ }
266 |  |  |  |  | }
267 |  |  |  |  |
268 |  |  |  |  | {
269 | 2 | 12µs |  |  | my $_available_formats =
270 |  |  |  |  | {
271 |  |  |  |  | "EEEd" => "d\ EEE",
272 |  |  |  |  | "Hm" => "H\:mm",
273 |  |  |  |  | "Hms" => "H\:mm\:ss",
274 |  |  |  |  | "M" => "L",
275 |  |  |  |  | "MEd" => "E\,\ M\/d",
276 |  |  |  |  | "MMM" => "LLL",
277 |  |  |  |  | "MMMEd" => "E\,\ MMM\ d",
278 |  |  |  |  | "MMMMEd" => "E\,\ MMMM\ d",
279 |  |  |  |  | "MMMMd" => "MMMM\ d",
280 |  |  |  |  | "MMMd" => "MMM\ d",
281 |  |  |  |  | "Md" => "M\/d",
282 |  |  |  |  | "d" => "d",
283 |  |  |  |  | "hm" => "h\:mm\ a",
284 |  |  |  |  | "ms" => "mm\:ss",
285 |  |  |  |  | "y" => "y",
286 |  |  |  |  | "yM" => "M\/yyyy",
287 |  |  |  |  | "yMEd" => "EEE\,\ M\/d\/yyyy",
288 |  |  |  |  | "yMMM" => "MMM\ y",
289 |  |  |  |  | "yMMMEd" => "EEE\,\ MMM\ d\,\ y",
290 |  |  |  |  | "yMMMM" => "MMMM\ y",
291 |  |  |  |  | "yQ" => "Q\ yyyy",
292 |  |  |  |  | "yQQQ" => "QQQ\ y"
293 |  |  |  |  | };
294 |  |  |  |  | sub _available_formats { return $_available_formats }
295 |  |  |  |  | }
296 |  |  |  |  |
297 | 1 | 31µs |  |  | 1;
298 |  |  |  |  |
299 |  |  |  |  | __END__