The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

ATOOMIC / XString-0.005 / lib / XString.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
—
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

              
package XString;
use strict;
use warnings;
# ABSTRACT: Isolated String helpers from B
BEGIN {
    our $VERSION = '0.005'; # VERSION: generated by DZP::OurPkgVersion
    require XSLoader;
    XSLoader::load(__PACKAGE__);
}
1;
__END__
=pod
=encoding utf-8
=head1 NAME
XString - Isolated String helpers from B
=head1 VERSION
version 0.005
=head1 SYNOPSIS
 #!perl
  
 use strict;
 use warnings;
  
 use Test::More;
  
 use XString;
 use B;
  
 is XString::cstring( q[a'string"with quotes] ), B::cstring( q[a'string"with quotes] ), q["a'string\"with quotes"];
 is XString::perlstring( q[a'string"with quotes] ), B::perlstring( q[a'string"with quotes] ), q["a'string\"with quotes"];
  
 done_testing;
=head1 DESCRIPTION
XString provides the L<B> string helpers in one isolated package.
Right now only L<cstring> and L<perlstring> are available.
=for markdown [![](https://github.com/atoomic/XString/workflows/linux/badge.svg)](https://github.com/atoomic/XString/actions) [![](https://github.com/atoomic/XString/workflows/macos/badge.svg)](https://github.com/atoomic/XString/actions) [![](https://github.com/atoomic/XString/workflows/windows/badge.svg)](https://github.com/atoomic/XString/actions)
=head1 FUNCTIONS
=head2 cstring(STR)
Similar to B::cstring;
Returns a double-quote-surrounded escaped version of STR which can
be used as a string in C source code.
=head2 perlstring(STR)
Similar to B::perlstring;
Returns a double-quote-surrounded escaped version of STR which can
be used as a string in Perl source code.
=head1 AUTHOR
Nicolas R <atoomic@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2018 by cPanel, Inc.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut