App-Office-Contacts

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "CGI" : "3.63",
            "CGI::Snapp" : "1.03",
            "CGI::Snapp::Dispatch" : "1.02",
            "Config::Tiny" : "2.12",
            "DBI" : "1.611",
            "DBIx::Admin::CreateTable" : "2.04",
            "Data::Session" : "1.13",
            "Data::UUID" : "1.203",
            "Data::Verifier" : "0.31",
            "DateTime" : "0.55",
            "Digest::SHA" : "5.48",
            "File::Copy" : "2.14",
            "File::HomeDir" : "0.97",
            "FindBin" : "1.49",
            "HTML::Template" : "2.9",
            "JSON::XS" : "2.29",
            "Log::Handler::Output::DBI" : "0.12",
            "Moose" : "2.0604",
            "Moose::Role" : "2.0604",
            "Path::Class" : "0.23",

META.yml  view on Meta::CPAN

requires:
  CGI: 3.63
  CGI::Snapp: 1.03
  CGI::Snapp::Dispatch: 1.02
  Config::Tiny: 2.12
  DBI: 1.611
  DBIx::Admin::CreateTable: 2.04
  DBIx::Simple: 1.35
  Data::Session: 1.13
  Data::Verifier: 0.31
  DateTime: 0.55
  Digest::SHA: 5.82
  Encode: 2.47
  File::Copy: 2.14
  File::ShareDir: 1.03
  FindBin: 1.49
  Getopt::Long: 2.38
  JSON::XS: 2.29
  Lingua::ENG::Inflect: 0.0577
  List::Compare: 0.37
  Log::Handler::Output::DBI: 0.12

Makefile.PL  view on Meta::CPAN

install_share;

requires 'CGI'                       => 3.63;
requires 'CGI::Snapp'                => 1.03;
requires 'CGI::Snapp::Dispatch'      => 1.02;
requires 'charnames'                 => 1.18;
requires 'Config::Tiny'              => 2.12;
requires 'Data::Session'             => 1.13;
requires 'Data::Verifier'            => 0.31;
requires 'DateTime'                  => 0.55;
requires 'DBI'                       => 1.611;
requires 'DBIx::Admin::CreateTable'  => 2.04;
requires 'DBIx::Simple'              => 1.35;
requires 'Digest::SHA'               => 5.82;
requires 'Encode'                    => 2.47;
requires 'feature'                   => 1.20;
requires 'File::Copy'                => 2.14;
requires 'File::ShareDir'            => 1.03;
requires 'FindBin'                   => 1.49;
requires 'Getopt::Long'              => 2.38;

lib/App/Office/Contacts/View/Base.pm  view on Meta::CPAN

package App::Office::Contacts::View::Base;

use strict;
use utf8;
use warnings;
use warnings  qw(FATAL utf8); # Fatalize encoding glitches.

use DateTime;

use Lingua::ENG::Inflect 'PL';

use Moo;

use Text::Xslate 'mark_raw';

extends 'App::Office::Contacts::Database::Base';

has view =>

lib/App/Office/Contacts/View/Base.pm  view on Meta::CPAN

	return $self -> build_menu("${prefix}${subject}_id", $self -> get_menu_data(PL($subject) ), $default);

} # End of build_simple_menu.

# -----------------------------------------------

sub format_timestamp
{
	my($self, $timestamp) = @_;
	my(@field)     = split(/[- :.]/, $timestamp);
	my($datestamp) = DateTime -> new
	(
	 year   => $field[0],
	 month  => $field[1],
	 day    => $field[2],
	 hour   => $field[3],
	 minute => $field[4],
	 second => $field[5],
	);

	return $datestamp -> strftime('%A, %e %B %Y %I:%M:%S %P');