File Coverage

blib/lib/OK/Utils.pm

Criterion	Covered	Total	%
statement	19	36	52.7
branch	0	2	0.0
condition			n/a
subroutine	6	10	60.0
pod	0	4	0.0
total	25	52	48.0

package OK::Utils;
=head1 NAME

OK::Utils - Orkun Karaduman's utilities

=head1 VERSION

version 1.01_01

=head1 SYNOPSIS

Orkun Karaduman's utilities

=head1 INSTALLATION

To install this module type the following

	perl Makefile.PL
	make
	make test
	make install

from CPAN

	cpan -i OK::Utils

=cut
use strict;
use warnings;
no warnings qw(qw utf8);
use v5.14;
use utf8;


BEGIN
{
	require Exporter;
	# set the version for version checking
	our $VERSION     = '1.01_01';
	# Inherit from Exporter to export functions and variables
	our @ISA         = qw(Exporter);
	# Functions and variables which are exported by default
	our @EXPORT      = qw();
	# Functions and variables which can be optionally exported
	our @EXPORT_OK   = qw(str_trim str_ltrim str_rtrim file_get_contents);
}


sub str_trim
{
	my $s = shift;
	$s =~ s/^\s+|\s+$//g;
	return $s
}

sub str_ltrim
{
	my $s = shift;
	$s =~ s/^\s+//;
	return $s
}

sub str_rtrim
{
	my $s = shift;
	$s =~ s/\s+$//;
	return $s
}

sub file_get_contents
{
	my $file = $_[0];
	my $document = do
	{
		local $/ = undef;
		open my $fh, "<", $file or return;
		my $result = <$fh>;
		close $fh;
		$result;
	};
	return $document;
}


1;
__END__