File Coverage

blib/lib/Pg/SQL/PrettyPrinter/Node/String.pm
Criterion Covered Total %
statement 45 45 100.0
branch n/a
condition 3 4 75.0
subroutine 16 16 100.0
pod 2 2 100.0
total 66 67 98.5


line stmt bran cond sub pod time code
1             package Pg::SQL::PrettyPrinter::Node::String;
2              
3             # UTF8 boilerplace, per http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/
4 11     11   6353 use v5.26;
  11         40  
5 11     11   66 use strict;
  11         24  
  11         251  
6 11     11   53 use warnings;
  11         25  
  11         376  
7 11     11   62 use warnings qw( FATAL utf8 );
  11         35  
  11         368  
8 11     11   75 use utf8;
  11         24  
  11         78  
9 11     11   359 use open qw( :std :utf8 );
  11         26  
  11         72  
10 11     11   1583 use Unicode::Normalize qw( NFC );
  11         29  
  11         640  
11 11     11   111 use Unicode::Collate;
  11         24  
  11         411  
12 11     11   76 use Encode qw( decode );
  11         21  
  11         702  
13              
14             if ( grep /\P{ASCII}/ => @ARGV ) {
15             @ARGV = map { decode( 'UTF-8', $_ ) } @ARGV;
16             }
17              
18             # If there is __DATA__,then uncomment next line:
19             # binmode( DATA, ':encoding(UTF-8)' );
20             # UTF8 boilerplace, per http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/
21              
22             # Useful common code
23 11     11   2603 use autodie;
  11         28  
  11         78  
24 11     11   60215 use Carp qw( carp croak confess cluck );
  11         34  
  11         911  
25 11     11   78 use English qw( -no_match_vars );
  11         32  
  11         74  
26 11     11   3935 use Data::Dumper qw( Dumper );
  11         40  
  11         2443  
27              
28             # give a full stack dump on any untrapped exceptions
29             local $SIG{ __DIE__ } = sub {
30             confess "Uncaught exception: @_" unless $^S;
31             };
32              
33             # now promote run-time warnings into stackdumped exceptions
34             # *unless* we're in an try block, in which
35             # case just generate a clucking stackdump instead
36             local $SIG{ __WARN__ } = sub {
37             if ( $^S ) { cluck "Trapped warning: @_" }
38             else { confess "Deadly warning: @_" }
39             };
40              
41             # Useful common code
42              
43 11     11   82 use parent qw( Pg::SQL::PrettyPrinter::Node );
  11         31  
  11         83  
44              
45             sub as_text {
46 225     225 1 369 my $self = shift;
47 225   100     765 return $self->quote_literal( $self->{ 'str' } // '' );
48             }
49              
50             sub as_ident {
51 790     790 1 1207 my $self = shift;
52 790   50     2389 return $self->quote_ident( $self->{ 'str' } // '' );
53             }
54             1;