File Coverage

blib/lib/Hydrogen/Curry/String.pm
Criterion Covered Total %
statement 249 286 87.0
branch 152 304 50.0
condition n/a
subroutine 46 83 55.4
pod 38 38 100.0
total 485 711 68.2


line stmt bran cond sub pod time code
1             # This file was autogenerated.
2 3     3   453210 use 5.008001;
  3         25  
3 3     3   16 use strict;
  3         5  
  3         58  
4 3     3   15 use warnings;
  3         6  
  3         113  
5 3     3   17 no warnings qw( void once );
  3         7  
  3         97  
6 3     3   784 use Hydrogen ();
  3         6  
  3         67  
7 3     3   1142 use Hydrogen::String ();
  3         8  
  3         276  
8              
9             package Hydrogen::Curry::String;
10              
11             our $AUTHORITY = 'cpan:TOBYINK';
12             our $VERSION = '0.020000';
13              
14             =head1 NAME
15              
16             Hydrogen::Curry::String - easily curry functions from Hydrogen::String
17              
18             =head1 VERSION
19              
20             This documentation is for Hydrogen::Curry::String 0.020000,
21             which is based on Sub::HandlesVia::HandlerLibrary::String 0.046.
22              
23             =cut
24              
25             =head1 FUNCTIONS
26              
27             Each function expects a string scalar as its only argument and returns a coderef.
28              
29             =cut
30              
31 3         17 use Exporter::Shiny qw(
32             curry_append
33             curry_chomp
34             curry_chop
35             curry_clear
36             curry_cmp
37             curry_cmpi
38             curry_contains
39             curry_contains_i
40             curry_ends_with
41             curry_ends_with_i
42             curry_eq
43             curry_eqi
44             curry_fc
45             curry_ge
46             curry_gei
47             curry_get
48             curry_gt
49             curry_gti
50             curry_inc
51             curry_lc
52             curry_le
53             curry_lei
54             curry_length
55             curry_lt
56             curry_lti
57             curry_match
58             curry_match_i
59             curry_ne
60             curry_nei
61             curry_prepend
62             curry_replace
63             curry_replace_globally
64             curry_reset
65             curry_set
66             curry_starts_with
67             curry_starts_with_i
68             curry_substr
69             curry_uc
70 3     3   23 );
  3         11  
71              
72             =head2 C<< curry_append( $string ) >>
73              
74             Curry the first argument of C<< Hydrogen::String::append >>.
75              
76             =cut
77              
78             sub curry_append {
79 2 50   2 1 7651 @_ == 1
80             or Hydrogen::croak(
81             "Wrong number of parameters in signature for curry_append: got %d, %s",
82             scalar(@_), "expected exactly 1 parameter"
83             );
84 2 50       5 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  2 50       16  
  2 50       22  
85             or Hydrogen::croak(
86             "Type check failed in signature for curry_append: %s should be %s",
87             "\\$_[0]", "Str"
88             );
89 2         5 my $ref = \$_[0];
90 2     3   21 return sub { Hydrogen::String::append( $$ref, @_ ) };
  3         18  
91             }
92              
93             =head2 C<< curry_chomp( $string ) >>
94              
95             Curry the first argument of C<< Hydrogen::String::chomp >>.
96              
97             =cut
98              
99             sub curry_chomp {
100 1 50   1 1 3535 @_ == 1
101             or Hydrogen::croak(
102             "Wrong number of parameters in signature for curry_chomp: got %d, %s",
103             scalar(@_), "expected exactly 1 parameter"
104             );
105 1 50       5 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       8  
106             or Hydrogen::croak(
107             "Type check failed in signature for curry_chomp: %s should be %s",
108             "\\$_[0]", "Str"
109             );
110 1         3 my $ref = \$_[0];
111 1     0   5 return sub { Hydrogen::String::chomp( $$ref, @_ ) };
  0         0  
112             }
113              
114             =head2 C<< curry_chop( $string ) >>
115              
116             Curry the first argument of C<< Hydrogen::String::chop >>.
117              
118             =cut
119              
120             sub curry_chop {
121 1 50   1 1 2803 @_ == 1
122             or Hydrogen::croak(
123             "Wrong number of parameters in signature for curry_chop: got %d, %s",
124             scalar(@_), "expected exactly 1 parameter"
125             );
126 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       4  
  1 50       8  
127             or Hydrogen::croak(
128             "Type check failed in signature for curry_chop: %s should be %s",
129             "\\$_[0]", "Str"
130             );
131 1         4 my $ref = \$_[0];
132 1     0   5 return sub { Hydrogen::String::chop( $$ref, @_ ) };
  0         0  
133             }
134              
135             =head2 C<< curry_clear( $string ) >>
136              
137             Curry the first argument of C<< Hydrogen::String::clear >>.
138              
139             =cut
140              
141             sub curry_clear {
142 1 50   1 1 2756 @_ == 1
143             or Hydrogen::croak(
144             "Wrong number of parameters in signature for curry_clear: got %d, %s",
145             scalar(@_), "expected exactly 1 parameter"
146             );
147 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       4  
  1 50       9  
148             or Hydrogen::croak(
149             "Type check failed in signature for curry_clear: %s should be %s",
150             "\\$_[0]", "Str"
151             );
152 1         3 my $ref = \$_[0];
153 1     0   4 return sub { Hydrogen::String::clear( $$ref, @_ ) };
  0         0  
154             }
155              
156             =head2 C<< curry_cmp( $string ) >>
157              
158             Curry the first argument of C<< Hydrogen::String::cmp >>.
159              
160             =cut
161              
162             sub curry_cmp {
163 1 50   1 1 2802 @_ == 1
164             or Hydrogen::croak(
165             "Wrong number of parameters in signature for curry_cmp: got %d, %s",
166             scalar(@_), "expected exactly 1 parameter"
167             );
168 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       8  
169             or Hydrogen::croak(
170             "Type check failed in signature for curry_cmp: %s should be %s",
171             "\\$_[0]", "Str"
172             );
173 1         3 my $ref = \$_[0];
174 1     0   4 return sub { Hydrogen::String::cmp( $$ref, @_ ) };
  0         0  
175             }
176              
177             =head2 C<< curry_cmpi( $string ) >>
178              
179             Curry the first argument of C<< Hydrogen::String::cmpi >>.
180              
181             =cut
182              
183             sub curry_cmpi {
184 1 50   1 1 2773 @_ == 1
185             or Hydrogen::croak(
186             "Wrong number of parameters in signature for curry_cmpi: got %d, %s",
187             scalar(@_), "expected exactly 1 parameter"
188             );
189 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       7  
  1 50       9  
190             or Hydrogen::croak(
191             "Type check failed in signature for curry_cmpi: %s should be %s",
192             "\\$_[0]", "Str"
193             );
194 1         3 my $ref = \$_[0];
195 1     0   4 return sub { Hydrogen::String::cmpi( $$ref, @_ ) };
  0         0  
196             }
197              
198             =head2 C<< curry_contains( $string ) >>
199              
200             Curry the first argument of C<< Hydrogen::String::contains >>.
201              
202             =cut
203              
204             sub curry_contains {
205 1 50   1 1 2848 @_ == 1
206             or Hydrogen::croak(
207             "Wrong number of parameters in signature for curry_contains: got %d, %s",
208             scalar(@_), "expected exactly 1 parameter"
209             );
210 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       10  
211             or Hydrogen::croak(
212             "Type check failed in signature for curry_contains: %s should be %s",
213             "\\$_[0]", "Str"
214             );
215 1         4 my $ref = \$_[0];
216 1     0   5 return sub { Hydrogen::String::contains( $$ref, @_ ) };
  0         0  
217             }
218              
219             =head2 C<< curry_contains_i( $string ) >>
220              
221             Curry the first argument of C<< Hydrogen::String::contains_i >>.
222              
223             =cut
224              
225             sub curry_contains_i {
226 1 50   1 1 2849 @_ == 1
227             or Hydrogen::croak(
228             "Wrong number of parameters in signature for curry_contains_i: got %d, %s",
229             scalar(@_), "expected exactly 1 parameter"
230             );
231 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       8  
232             or Hydrogen::croak(
233             "Type check failed in signature for curry_contains_i: %s should be %s",
234             "\\$_[0]", "Str"
235             );
236 1         3 my $ref = \$_[0];
237 1     0   6 return sub { Hydrogen::String::contains_i( $$ref, @_ ) };
  0         0  
238             }
239              
240             =head2 C<< curry_ends_with( $string ) >>
241              
242             Curry the first argument of C<< Hydrogen::String::ends_with >>.
243              
244             =cut
245              
246             sub curry_ends_with {
247 1 50   1 1 2786 @_ == 1
248             or Hydrogen::croak(
249             "Wrong number of parameters in signature for curry_ends_with: got %d, %s",
250             scalar(@_), "expected exactly 1 parameter"
251             );
252 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       4  
  1 50       9  
253             or Hydrogen::croak(
254             "Type check failed in signature for curry_ends_with: %s should be %s",
255             "\\$_[0]", "Str"
256             );
257 1         3 my $ref = \$_[0];
258 1     0   4 return sub { Hydrogen::String::ends_with( $$ref, @_ ) };
  0         0  
259             }
260              
261             =head2 C<< curry_ends_with_i( $string ) >>
262              
263             Curry the first argument of C<< Hydrogen::String::ends_with_i >>.
264              
265             =cut
266              
267             sub curry_ends_with_i {
268 1 50   1 1 2829 @_ == 1
269             or Hydrogen::croak(
270             "Wrong number of parameters in signature for curry_ends_with_i: got %d, %s",
271             scalar(@_), "expected exactly 1 parameter"
272             );
273 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       8  
274             or Hydrogen::croak(
275             "Type check failed in signature for curry_ends_with_i: %s should be %s",
276             "\\$_[0]", "Str"
277             );
278 1         3 my $ref = \$_[0];
279 1     0   5 return sub { Hydrogen::String::ends_with_i( $$ref, @_ ) };
  0         0  
280             }
281              
282             =head2 C<< curry_eq( $string ) >>
283              
284             Curry the first argument of C<< Hydrogen::String::eq >>.
285              
286             =cut
287              
288             sub curry_eq {
289 1 50   1 1 2733 @_ == 1
290             or Hydrogen::croak(
291             "Wrong number of parameters in signature for curry_eq: got %d, %s",
292             scalar(@_), "expected exactly 1 parameter"
293             );
294 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       10  
295             or Hydrogen::croak(
296             "Type check failed in signature for curry_eq: %s should be %s",
297             "\\$_[0]", "Str"
298             );
299 1         3 my $ref = \$_[0];
300 1     0   5 return sub { Hydrogen::String::eq( $$ref, @_ ) };
  0         0  
301             }
302              
303             =head2 C<< curry_eqi( $string ) >>
304              
305             Curry the first argument of C<< Hydrogen::String::eqi >>.
306              
307             =cut
308              
309             sub curry_eqi {
310 1 50   1 1 2885 @_ == 1
311             or Hydrogen::croak(
312             "Wrong number of parameters in signature for curry_eqi: got %d, %s",
313             scalar(@_), "expected exactly 1 parameter"
314             );
315 1 50       7 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       23  
  1 50       15  
316             or Hydrogen::croak(
317             "Type check failed in signature for curry_eqi: %s should be %s",
318             "\\$_[0]", "Str"
319             );
320 1         3 my $ref = \$_[0];
321 1     0   6 return sub { Hydrogen::String::eqi( $$ref, @_ ) };
  0         0  
322             }
323              
324             =head2 C<< curry_fc( $string ) >>
325              
326             Curry the first argument of C<< Hydrogen::String::fc >>.
327              
328             =cut
329              
330             sub curry_fc {
331 1 50   1 1 2837 @_ == 1
332             or Hydrogen::croak(
333             "Wrong number of parameters in signature for curry_fc: got %d, %s",
334             scalar(@_), "expected exactly 1 parameter"
335             );
336 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       7  
  1 50       8  
337             or Hydrogen::croak(
338             "Type check failed in signature for curry_fc: %s should be %s",
339             "\\$_[0]", "Str"
340             );
341 1         3 my $ref = \$_[0];
342 1     0   5 return sub { Hydrogen::String::fc( $$ref, @_ ) };
  0         0  
343             }
344              
345             =head2 C<< curry_ge( $string ) >>
346              
347             Curry the first argument of C<< Hydrogen::String::ge >>.
348              
349             =cut
350              
351             sub curry_ge {
352 1 50   1 1 2814 @_ == 1
353             or Hydrogen::croak(
354             "Wrong number of parameters in signature for curry_ge: got %d, %s",
355             scalar(@_), "expected exactly 1 parameter"
356             );
357 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       11  
  1 50       8  
358             or Hydrogen::croak(
359             "Type check failed in signature for curry_ge: %s should be %s",
360             "\\$_[0]", "Str"
361             );
362 1         3 my $ref = \$_[0];
363 1     0   4 return sub { Hydrogen::String::ge( $$ref, @_ ) };
  0         0  
364             }
365              
366             =head2 C<< curry_gei( $string ) >>
367              
368             Curry the first argument of C<< Hydrogen::String::gei >>.
369              
370             =cut
371              
372             sub curry_gei {
373 1 50   1 1 2776 @_ == 1
374             or Hydrogen::croak(
375             "Wrong number of parameters in signature for curry_gei: got %d, %s",
376             scalar(@_), "expected exactly 1 parameter"
377             );
378 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       7  
  1 50       9  
379             or Hydrogen::croak(
380             "Type check failed in signature for curry_gei: %s should be %s",
381             "\\$_[0]", "Str"
382             );
383 1         2 my $ref = \$_[0];
384 1     0   6 return sub { Hydrogen::String::gei( $$ref, @_ ) };
  0         0  
385             }
386              
387             =head2 C<< curry_get( $string ) >>
388              
389             Curry the first argument of C<< Hydrogen::String::get >>.
390              
391             =cut
392              
393             sub curry_get {
394 1 50   1 1 2783 @_ == 1
395             or Hydrogen::croak(
396             "Wrong number of parameters in signature for curry_get: got %d, %s",
397             scalar(@_), "expected exactly 1 parameter"
398             );
399 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       7  
400             or Hydrogen::croak(
401             "Type check failed in signature for curry_get: %s should be %s",
402             "\\$_[0]", "Str"
403             );
404 1         3 my $ref = \$_[0];
405 1     0   5 return sub { Hydrogen::String::get( $$ref, @_ ) };
  0         0  
406             }
407              
408             =head2 C<< curry_gt( $string ) >>
409              
410             Curry the first argument of C<< Hydrogen::String::gt >>.
411              
412             =cut
413              
414             sub curry_gt {
415 1 50   1 1 2835 @_ == 1
416             or Hydrogen::croak(
417             "Wrong number of parameters in signature for curry_gt: got %d, %s",
418             scalar(@_), "expected exactly 1 parameter"
419             );
420 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       8  
421             or Hydrogen::croak(
422             "Type check failed in signature for curry_gt: %s should be %s",
423             "\\$_[0]", "Str"
424             );
425 1         3 my $ref = \$_[0];
426 1     0   4 return sub { Hydrogen::String::gt( $$ref, @_ ) };
  0         0  
427             }
428              
429             =head2 C<< curry_gti( $string ) >>
430              
431             Curry the first argument of C<< Hydrogen::String::gti >>.
432              
433             =cut
434              
435             sub curry_gti {
436 1 50   1 1 2781 @_ == 1
437             or Hydrogen::croak(
438             "Wrong number of parameters in signature for curry_gti: got %d, %s",
439             scalar(@_), "expected exactly 1 parameter"
440             );
441 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       7  
  1 50       7  
442             or Hydrogen::croak(
443             "Type check failed in signature for curry_gti: %s should be %s",
444             "\\$_[0]", "Str"
445             );
446 1         3 my $ref = \$_[0];
447 1     0   5 return sub { Hydrogen::String::gti( $$ref, @_ ) };
  0         0  
448             }
449              
450             =head2 C<< curry_inc( $string ) >>
451              
452             Curry the first argument of C<< Hydrogen::String::inc >>.
453              
454             =cut
455              
456             sub curry_inc {
457 1 50   1 1 2792 @_ == 1
458             or Hydrogen::croak(
459             "Wrong number of parameters in signature for curry_inc: got %d, %s",
460             scalar(@_), "expected exactly 1 parameter"
461             );
462 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       8  
463             or Hydrogen::croak(
464             "Type check failed in signature for curry_inc: %s should be %s",
465             "\\$_[0]", "Str"
466             );
467 1         4 my $ref = \$_[0];
468 1     0   4 return sub { Hydrogen::String::inc( $$ref, @_ ) };
  0         0  
469             }
470              
471             =head2 C<< curry_lc( $string ) >>
472              
473             Curry the first argument of C<< Hydrogen::String::lc >>.
474              
475             =cut
476              
477             sub curry_lc {
478 1 50   1 1 2815 @_ == 1
479             or Hydrogen::croak(
480             "Wrong number of parameters in signature for curry_lc: got %d, %s",
481             scalar(@_), "expected exactly 1 parameter"
482             );
483 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       9  
484             or Hydrogen::croak(
485             "Type check failed in signature for curry_lc: %s should be %s",
486             "\\$_[0]", "Str"
487             );
488 1         4 my $ref = \$_[0];
489 1     0   5 return sub { Hydrogen::String::lc( $$ref, @_ ) };
  0         0  
490             }
491              
492             =head2 C<< curry_le( $string ) >>
493              
494             Curry the first argument of C<< Hydrogen::String::le >>.
495              
496             =cut
497              
498             sub curry_le {
499 1 50   1 1 2816 @_ == 1
500             or Hydrogen::croak(
501             "Wrong number of parameters in signature for curry_le: got %d, %s",
502             scalar(@_), "expected exactly 1 parameter"
503             );
504 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       8  
505             or Hydrogen::croak(
506             "Type check failed in signature for curry_le: %s should be %s",
507             "\\$_[0]", "Str"
508             );
509 1         3 my $ref = \$_[0];
510 1     0   6 return sub { Hydrogen::String::le( $$ref, @_ ) };
  0         0  
511             }
512              
513             =head2 C<< curry_lei( $string ) >>
514              
515             Curry the first argument of C<< Hydrogen::String::lei >>.
516              
517             =cut
518              
519             sub curry_lei {
520 1 50   1 1 2777 @_ == 1
521             or Hydrogen::croak(
522             "Wrong number of parameters in signature for curry_lei: got %d, %s",
523             scalar(@_), "expected exactly 1 parameter"
524             );
525 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       11  
526             or Hydrogen::croak(
527             "Type check failed in signature for curry_lei: %s should be %s",
528             "\\$_[0]", "Str"
529             );
530 1         3 my $ref = \$_[0];
531 1     0   8 return sub { Hydrogen::String::lei( $$ref, @_ ) };
  0         0  
532             }
533              
534             =head2 C<< curry_length( $string ) >>
535              
536             Curry the first argument of C<< Hydrogen::String::length >>.
537              
538             =cut
539              
540             sub curry_length {
541 1 50   1 1 2801 @_ == 1
542             or Hydrogen::croak(
543             "Wrong number of parameters in signature for curry_length: got %d, %s",
544             scalar(@_), "expected exactly 1 parameter"
545             );
546 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       8  
547             or Hydrogen::croak(
548             "Type check failed in signature for curry_length: %s should be %s",
549             "\\$_[0]", "Str"
550             );
551 1         4 my $ref = \$_[0];
552 1     0   7 return sub { Hydrogen::String::length( $$ref, @_ ) };
  0         0  
553             }
554              
555             =head2 C<< curry_lt( $string ) >>
556              
557             Curry the first argument of C<< Hydrogen::String::lt >>.
558              
559             =cut
560              
561             sub curry_lt {
562 1 50   1 1 2804 @_ == 1
563             or Hydrogen::croak(
564             "Wrong number of parameters in signature for curry_lt: got %d, %s",
565             scalar(@_), "expected exactly 1 parameter"
566             );
567 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       4  
  1 50       8  
568             or Hydrogen::croak(
569             "Type check failed in signature for curry_lt: %s should be %s",
570             "\\$_[0]", "Str"
571             );
572 1         2 my $ref = \$_[0];
573 1     0   5 return sub { Hydrogen::String::lt( $$ref, @_ ) };
  0         0  
574             }
575              
576             =head2 C<< curry_lti( $string ) >>
577              
578             Curry the first argument of C<< Hydrogen::String::lti >>.
579              
580             =cut
581              
582             sub curry_lti {
583 1 50   1 1 2790 @_ == 1
584             or Hydrogen::croak(
585             "Wrong number of parameters in signature for curry_lti: got %d, %s",
586             scalar(@_), "expected exactly 1 parameter"
587             );
588 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       9  
589             or Hydrogen::croak(
590             "Type check failed in signature for curry_lti: %s should be %s",
591             "\\$_[0]", "Str"
592             );
593 1         3 my $ref = \$_[0];
594 1     0   4 return sub { Hydrogen::String::lti( $$ref, @_ ) };
  0         0  
595             }
596              
597             =head2 C<< curry_match( $string ) >>
598              
599             Curry the first argument of C<< Hydrogen::String::match >>.
600              
601             =cut
602              
603             sub curry_match {
604 1 50   1 1 2805 @_ == 1
605             or Hydrogen::croak(
606             "Wrong number of parameters in signature for curry_match: got %d, %s",
607             scalar(@_), "expected exactly 1 parameter"
608             );
609 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       4  
  1 50       10  
610             or Hydrogen::croak(
611             "Type check failed in signature for curry_match: %s should be %s",
612             "\\$_[0]", "Str"
613             );
614 1         3 my $ref = \$_[0];
615 1     0   5 return sub { Hydrogen::String::match( $$ref, @_ ) };
  0         0  
616             }
617              
618             =head2 C<< curry_match_i( $string ) >>
619              
620             Curry the first argument of C<< Hydrogen::String::match_i >>.
621              
622             =cut
623              
624             sub curry_match_i {
625 1 50   1 1 2844 @_ == 1
626             or Hydrogen::croak(
627             "Wrong number of parameters in signature for curry_match_i: got %d, %s",
628             scalar(@_), "expected exactly 1 parameter"
629             );
630 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       10  
631             or Hydrogen::croak(
632             "Type check failed in signature for curry_match_i: %s should be %s",
633             "\\$_[0]", "Str"
634             );
635 1         4 my $ref = \$_[0];
636 1     0   5 return sub { Hydrogen::String::match_i( $$ref, @_ ) };
  0         0  
637             }
638              
639             =head2 C<< curry_ne( $string ) >>
640              
641             Curry the first argument of C<< Hydrogen::String::ne >>.
642              
643             =cut
644              
645             sub curry_ne {
646 1 50   1 1 2822 @_ == 1
647             or Hydrogen::croak(
648             "Wrong number of parameters in signature for curry_ne: got %d, %s",
649             scalar(@_), "expected exactly 1 parameter"
650             );
651 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       40  
  1 50       19  
652             or Hydrogen::croak(
653             "Type check failed in signature for curry_ne: %s should be %s",
654             "\\$_[0]", "Str"
655             );
656 1         2 my $ref = \$_[0];
657 1     0   7 return sub { Hydrogen::String::ne( $$ref, @_ ) };
  0         0  
658             }
659              
660             =head2 C<< curry_nei( $string ) >>
661              
662             Curry the first argument of C<< Hydrogen::String::nei >>.
663              
664             =cut
665              
666             sub curry_nei {
667 1 50   1 1 2769 @_ == 1
668             or Hydrogen::croak(
669             "Wrong number of parameters in signature for curry_nei: got %d, %s",
670             scalar(@_), "expected exactly 1 parameter"
671             );
672 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       9  
  1 50       8  
673             or Hydrogen::croak(
674             "Type check failed in signature for curry_nei: %s should be %s",
675             "\\$_[0]", "Str"
676             );
677 1         3 my $ref = \$_[0];
678 1     0   4 return sub { Hydrogen::String::nei( $$ref, @_ ) };
  0         0  
679             }
680              
681             =head2 C<< curry_prepend( $string ) >>
682              
683             Curry the first argument of C<< Hydrogen::String::prepend >>.
684              
685             =cut
686              
687             sub curry_prepend {
688 1 50   1 1 2838 @_ == 1
689             or Hydrogen::croak(
690             "Wrong number of parameters in signature for curry_prepend: got %d, %s",
691             scalar(@_), "expected exactly 1 parameter"
692             );
693 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       17  
  1 50       17  
694             or Hydrogen::croak(
695             "Type check failed in signature for curry_prepend: %s should be %s",
696             "\\$_[0]", "Str"
697             );
698 1         4 my $ref = \$_[0];
699 1     0   5 return sub { Hydrogen::String::prepend( $$ref, @_ ) };
  0         0  
700             }
701              
702             =head2 C<< curry_replace( $string ) >>
703              
704             Curry the first argument of C<< Hydrogen::String::replace >>.
705              
706             =cut
707              
708             sub curry_replace {
709 1 50   1 1 2843 @_ == 1
710             or Hydrogen::croak(
711             "Wrong number of parameters in signature for curry_replace: got %d, %s",
712             scalar(@_), "expected exactly 1 parameter"
713             );
714 1 50       4 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       8  
  1 50       9  
715             or Hydrogen::croak(
716             "Type check failed in signature for curry_replace: %s should be %s",
717             "\\$_[0]", "Str"
718             );
719 1         3 my $ref = \$_[0];
720 1     0   5 return sub { Hydrogen::String::replace( $$ref, @_ ) };
  0         0  
721             }
722              
723             =head2 C<< curry_replace_globally( $string ) >>
724              
725             Curry the first argument of C<< Hydrogen::String::replace_globally >>.
726              
727             =cut
728              
729             sub curry_replace_globally {
730 1 50   1 1 2810 @_ == 1
731             or Hydrogen::croak(
732             "Wrong number of parameters in signature for curry_replace_globally: got %d, %s",
733             scalar(@_), "expected exactly 1 parameter"
734             );
735 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       9  
736             or Hydrogen::croak(
737             "Type check failed in signature for curry_replace_globally: %s should be %s",
738             "\\$_[0]", "Str"
739             );
740 1         6 my $ref = \$_[0];
741 1     0   4 return sub { Hydrogen::String::replace_globally( $$ref, @_ ) };
  0         0  
742             }
743              
744             =head2 C<< curry_reset( $string ) >>
745              
746             Curry the first argument of C<< Hydrogen::String::reset >>.
747              
748             =cut
749              
750             sub curry_reset {
751 1 50   1 1 2823 @_ == 1
752             or Hydrogen::croak(
753             "Wrong number of parameters in signature for curry_reset: got %d, %s",
754             scalar(@_), "expected exactly 1 parameter"
755             );
756 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       6  
  1 50       13  
757             or Hydrogen::croak(
758             "Type check failed in signature for curry_reset: %s should be %s",
759             "\\$_[0]", "Str"
760             );
761 1         3 my $ref = \$_[0];
762 1     0   4 return sub { Hydrogen::String::reset( $$ref, @_ ) };
  0         0  
763             }
764              
765             =head2 C<< curry_set( $string ) >>
766              
767             Curry the first argument of C<< Hydrogen::String::set >>.
768              
769             =cut
770              
771             sub curry_set {
772 1 50   1 1 2854 @_ == 1
773             or Hydrogen::croak(
774             "Wrong number of parameters in signature for curry_set: got %d, %s",
775             scalar(@_), "expected exactly 1 parameter"
776             );
777 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       7  
  1 50       9  
778             or Hydrogen::croak(
779             "Type check failed in signature for curry_set: %s should be %s",
780             "\\$_[0]", "Str"
781             );
782 1         8 my $ref = \$_[0];
783 1     0   8 return sub { Hydrogen::String::set( $$ref, @_ ) };
  0         0  
784             }
785              
786             =head2 C<< curry_starts_with( $string ) >>
787              
788             Curry the first argument of C<< Hydrogen::String::starts_with >>.
789              
790             =cut
791              
792             sub curry_starts_with {
793 1 50   1 1 2786 @_ == 1
794             or Hydrogen::croak(
795             "Wrong number of parameters in signature for curry_starts_with: got %d, %s",
796             scalar(@_), "expected exactly 1 parameter"
797             );
798 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       8  
  1 50       10  
799             or Hydrogen::croak(
800             "Type check failed in signature for curry_starts_with: %s should be %s",
801             "\\$_[0]", "Str"
802             );
803 1         45 my $ref = \$_[0];
804 1     0   9 return sub { Hydrogen::String::starts_with( $$ref, @_ ) };
  0         0  
805             }
806              
807             =head2 C<< curry_starts_with_i( $string ) >>
808              
809             Curry the first argument of C<< Hydrogen::String::starts_with_i >>.
810              
811             =cut
812              
813             sub curry_starts_with_i {
814 1 50   1 1 2831 @_ == 1
815             or Hydrogen::croak(
816             "Wrong number of parameters in signature for curry_starts_with_i: got %d, %s",
817             scalar(@_), "expected exactly 1 parameter"
818             );
819 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       9  
820             or Hydrogen::croak(
821             "Type check failed in signature for curry_starts_with_i: %s should be %s",
822             "\\$_[0]", "Str"
823             );
824 1         2 my $ref = \$_[0];
825 1     0   5 return sub { Hydrogen::String::starts_with_i( $$ref, @_ ) };
  0         0  
826             }
827              
828             =head2 C<< curry_substr( $string ) >>
829              
830             Curry the first argument of C<< Hydrogen::String::substr >>.
831              
832             =cut
833              
834             sub curry_substr {
835 1 50   1 1 2785 @_ == 1
836             or Hydrogen::croak(
837             "Wrong number of parameters in signature for curry_substr: got %d, %s",
838             scalar(@_), "expected exactly 1 parameter"
839             );
840 1 50       2 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       5  
  1 50       7  
841             or Hydrogen::croak(
842             "Type check failed in signature for curry_substr: %s should be %s",
843             "\\$_[0]", "Str"
844             );
845 1         3 my $ref = \$_[0];
846 1     0   5 return sub { Hydrogen::String::substr( $$ref, @_ ) };
  0         0  
847             }
848              
849             =head2 C<< curry_uc( $string ) >>
850              
851             Curry the first argument of C<< Hydrogen::String::uc >>.
852              
853             =cut
854              
855             sub curry_uc {
856 1 50   1 1 2826 @_ == 1
857             or Hydrogen::croak(
858             "Wrong number of parameters in signature for curry_uc: got %d, %s",
859             scalar(@_), "expected exactly 1 parameter"
860             );
861 1 50       3 do { package Hydrogen::String::__SANDBOX__; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }
  1 50       8  
  1 50       13  
862             or Hydrogen::croak(
863             "Type check failed in signature for curry_uc: %s should be %s",
864             "\\$_[0]", "Str"
865             );
866 1         4 my $ref = \$_[0];
867 1     0   4 return sub { Hydrogen::String::uc( $$ref, @_ ) };
  0            
868             }
869              
870             1;
871              
872             =head1 EXPORT
873              
874             No functions are exported by this module by default. To import them all (this is usually a bad idea), use:
875              
876             use Hydrogen::Curry::String -all;
877              
878             To import a particular function, use:
879              
880             use Hydrogen::Curry::String 'curry_chop';
881              
882             To rename functions:
883              
884             use Hydrogen::Curry::String 'curry_chop' => { -as => 'myfunc' };
885              
886             On Perl 5.37.2+ (or if L is installed) you can import lexically:
887              
888             use Hydrogen::Curry::String -lexical, 'curry_chop';
889              
890             See L for more hints on importing.
891              
892             =head1 BUGS
893              
894             Please report any bugs to
895             L.
896              
897             =head1 SEE ALSO
898              
899             L,
900             L,
901             L,
902             L,
903             L.
904              
905             =head1 AUTHOR
906              
907             Toby Inkster Etobyink@cpan.orgE.
908              
909             =head1 COPYRIGHT AND LICENCE
910              
911             This software is copyright (c) 2022-2023 by Toby Inkster.
912              
913             This is free software; you can redistribute it and/or modify it under
914             the same terms as the Perl 5 programming language system itself.
915              
916             =head1 DISCLAIMER OF WARRANTIES
917              
918             THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
919             WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
920             MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
921