Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
Document	[ DIR ]	drwxrwxrwx
Exception	[ DIR ]	drwxrwxrwx
Normal	[ DIR ]	drwxrwxrwx
Statement	[ DIR ]	drwxrwxrwx
Structure	[ DIR ]	drwxrwxrwx
Token	[ DIR ]	drwxrwxrwx
Transform	[ DIR ]	drwxrwxrwx
Cache.pm	6.15 KB	-rw-rw-rw-
Document.pm	21.86 KB	-rw-rw-rw-
Dumper.pm	6.79 KB	-rw-rw-rw-
Element.pm	22.23 KB	-rw-rw-rw-
Exception.pm	1.95 KB	-rw-rw-rw-
Find.pm	8.76 KB	-rw-rw-rw-
Lexer.pm	40.64 KB	-rw-rw-rw-
Node.pm	19.69 KB	-rw-rw-rw-
Normal.pm	6.22 KB	-rw-rw-rw-
Singletons.pm	3.1 KB	-rw-rw-rw-
Statement.pm	8.83 KB	-rw-rw-rw-
Structure.pm	8.61 KB	-rw-rw-rw-
Token.pm	5.65 KB	-rw-rw-rw-
Tokenizer.pm	33.05 KB	-rw-rw-rw-
Transform.pm	5.81 KB	-rw-rw-rw-
Util.pm	1.82 KB	-rw-rw-rw-
XSAccessor.pm	2.34 KB	-rw-rw-rw-

Code Editor : Util.pm

package PPI::Util;

# Provides some common utility functions that can be imported

use strict;
use Exporter     ();
use Digest::MD5  ();
use Params::Util qw{_INSTANCE _SCALAR0 _ARRAY0};

our $VERSION = '1.270'; # VERSION

our @ISA       = 'Exporter';
our @EXPORT_OK = qw{ _Document _slurp };

# 5.8.7 was the first version to resolve the notorious
# "unicode length caching" bug.
use constant HAVE_UNICODE => !! ( $] >= 5.008007 );

# Common reusable true and false functions
# This makes it easy to upgrade many places in PPI::XS
sub TRUE  () { 1  }
sub FALSE () { '' }

#####################################################################
# Functions

# Allows a sub that takes a L<PPI::Document> to handle the full range
# of different things, including file names, SCALAR source, etc.
sub _Document {
	shift if @_ > 1;
	return undef unless defined $_[0];
	require PPI::Document;
	return PPI::Document->new(shift) unless ref $_[0];
	return PPI::Document->new(shift) if _SCALAR0($_[0]);
	return PPI::Document->new(shift) if _ARRAY0($_[0]);
	return shift if _INSTANCE($_[0], 'PPI::Document');
	return undef;
}

# Provide a simple _slurp implementation
sub _slurp {
	my $file = shift;
	local $/ = undef;
	local *FILE;
	open( FILE, '<', $file ) or return "open($file) failed: $!";
	my $source = <FILE>;
	close( FILE ) or return "close($file) failed: $!";
	return \$source;
}

# Provides a version of Digest::MD5's md5hex that explicitly
# works on the unix-newlined version of the content.
sub md5hex {
	my $string = shift;
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\015/gs;
	Digest::MD5::md5_hex($string);
}

# As above but slurps and calculates the id for a file by name
sub md5hex_file {
	my $file    = shift;
	my $content = _slurp($file);
	return undef unless ref $content;
	$$content =~ s/(?:\015{1,2}\012|\015|\012)/\n/gs;
	md5hex($$content);
}

${this.title}

Code Editor : Util.pm