Masatoshi Mizuno > Egg-Release > Egg::Plugin::Tools

Download:
Egg-Release-3.14.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 3.01   Source  

NAME ^

Egg::Plugin::Tools - Convenient method collection for Egg.

SYNOPSIS ^

  use Egg qw/ Tools /;
  
  $e->escape_html($html);
  
  $e->unescape_html($plain);
  
  $e->sha1_hex('abcdefg');
  
  $e->comma('12345.123');
  
  my @array= (1..100);
  $e->shuffle_array(\@array);

DESCRIPTION ^

It is a plugin that collects convenient methods.

METHODS ^

encode_entities ([HTML_STR], [ARG])

encode_entities of HTML::Entities is done.

  my $plain = $e->encode_entities($html);

encode_entities_numeric ([HTML_STR], [ARG])

encode_entities_numeric of HTML::Entities is done.

decode_entities ([HTML_STR], [ARG])

decode_entities of HTML::Entities is done.

  my $html = $e->decode_entities($plain);

uri_escape ([URI_STR])

uri_escape of URI::Escape is done.

  my $escape= $e->uri_escape($uri);

uri_escape_utf8 ([URI_STR])

uri_escape_utf8 of URI::Escape is done.

uri_unescape ([URI_STR])

uri_unescape of URI::Escape is done.

sha1_hex ([TEXT])

sha1_hex of Digest::SHA1 is done.

  my $hex= $e->sha1_hex($text);

md5_hex ([TEXT])

md5_hex of Digest::MD5 is done.

  my $hex= $e->md5_hex($text);

create_id ([LENGTH], [METHOD])

A unique HEX value to use it as general ID is returned.

LENGTH is length of the returned HEX value. It disappears when it is too short in unique. Default is 32.

METHOD is a method for the generation of the HEX value. Sha1 or md5 can be specified. Default is sha1.

  my $id= $e->create_id;

comma ([NUMBER])

The comma is put in NUMBER in each treble.

  my $price= $e->comma($number);

shuffle_array ([ARRAY])

The result of mixing ARRAY is returned.

  my $shuffle= $e->shuffle_array($array);

filefind ([REGEXP], [PATH_LIST])

The result of File::Find is returned.

The regular expression of the retrieved file is passed to REGEXP.

The retrieved passing is passed to PATH_LIST.

When anything doesn't become a hit to the retrieval, undefined is returned.

  if (my $files= $e->filefind(qr{\.pm$}, '/path/to/find')) {
     ............
     .....
  }

referer_check ([BOOL])

If environment variable 'HTTP_REFERER' is the one of the site, true is returned.

If REQUEST_METHOD is POST and doesn't exist, it becomes false if BOOL is given.

True is returned when there is no value in HTTP_REFERER.

$e->request->host_name is used for the site judgment.

  if ($e->referer_check(1)) {
      ..............
      ......
  }

gettimeofday

Gettimeofday of Time::HiRes is returned.

  my $elabor = $e->gettimeofday;

mkpath ([PATH_LIST])

mkpath of File::Path is done.

  $e->mkpath(qw{ /path/to/create });

rmtree ([PATH_LIST])

rmtree of File::Path is done.

  $e->rmtree(qw{ /path/to/create });

jfold ([STRING])

jfold of Jcode is done.

The return value is ARRAY reference.

  my $cutstr= $e->jfold($string);

timelocal ([DATE_STRING or TIME_ARRAY])

Time::Local is done.

If it is DATE_STRING, the character string of the form such as '2008/01/01 01:01:01' and '2008-01-01 01:01:01' can be passed.

When TIME_ARRAY is passed, ARRAY with the value that starts from the age is passed. Please note reversing completely with the argument passed to Time::Local.

  my $time_var= $e->timelocal('2008/01/01 01:01:01');
    or
  my $time_var= $e->timelocal(qw/ 2008 01 01 01 01 01 /);

SEE ALSO ^

Egg::Release, URI::Escape, HTML::Entities, Digest::SHA1, Digest::MD5, File::Find, Time::HiRes, File::Path, Jcode, Time::Local,

AUTHOR ^

Masatoshi Mizuno <lushe@cpan.org>

COPYRIGHT AND LICENSE ^

Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.

syntax highlighting: