File Coverage

blib/lib/CljPerl.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package CljPerl;

use 5.008008;
use strict;
use warnings;
use File::Basename;
use File::Spec;

require Exporter;

use CljPerl::Evaler;

our @ISA = qw(Exporter);

# This allows declaration	use CljPerl ':all';
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.10';


# Preloaded methods go here.

# file
sub print {
  print @_;
}

sub openfile {
  my $file = shift;
  my $cb = shift;
  my $fh;
  open $fh, $file;
  &{$cb}($fh);
  close $fh;
}

sub puts {
  my $fh = shift;
  my $str = shift;
  print $fh $str;
}

sub readline {
  my $fh = shift;
  return <$fh>;
}

sub readlines {
  my $file = shift;
  my $fh;
  open $fh, "<$file";
  my @lines = <$fh>;
  close $fh;
  return join("\n", @lines);
}

sub file_exists {
  my $file = shift;
  return \(-e $file);
}

# lib search path
sub use_lib {
  my $path = shift;
  unshift @INC, $path;
}

my $lib_path = File::Spec->rel2abs(dirname(__FILE__) . "/CljPerl");
use_lib($lib_path);

sub gen_name {
  return "gen-" . rand;
}

# regexp
sub match {
  my $regexp = shift;
  my $str = shift;
  my @m = ($str =~ qr($regexp));
  return \@m;
}

sub get_env {
  my $name = shift;
  return $ENV{$name};
}

1;
__END__