Result:
found more than 290 distributions - search limited to the first 2001 files matching your query
( run in 0.516 )
App-Prolix
view release on metacpan or search on metacpan
lib/App/Prolix.pm view on Meta::CPAN
sub close_log {
my($self) = @_;
$self->_log->close if $self->_log;
}
# Like: (DateTime->new->iso8601 =~ s/[-:]//g), but I didn't want to add
# a big dependency.
sub now_stamp {
my($self) = @_;
my(@t) = localtime; # Should this be gmtime?
App-Prove-Plugin-TraceUse
view release on metacpan or search on metacpan
t/parse_module_and_version.t view on Meta::CPAN
use warnings;
use Test::Most tests => 101;
use App::Prove::Plugin::TraceUse;
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 1. DateTime 0.78, -e line 0 [main]")], [qw/DateTime 0.78/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 2. strict 1.07, DateTime.pm line 8")], [qw/strict 1.07/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 3. warnings 1.13, DateTime.pm line 9")], [qw/warnings 1.13/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 4. Carp 1.26, DateTime.pm line 42")], [qw/Carp 1.26/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 5. Exporter 5.66, Carp.pm line 35")], [qw/Exporter 5.66/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 71. Exporter::Heavy 5.66, Exporter.pm line 16")], [qw/Exporter::Heavy 5.66/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 6. DateTime::Duration 0.78, DateTime.pm line 43")], [qw/DateTime::Duration 0.78/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 7. DateTime::Helpers 0.78, DateTime/Duration.pm line 11")], [qw/DateTime::Helpers 0.78/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 8. Scalar::Util 1.25, DateTime/Helpers.pm line 9")], [qw/Scalar::Util 1.25/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 9. List::Util 1.25, Scalar/Util.pm line 11")], [qw/List::Util 1.25/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 10. XSLoader 0.16, List/Util.pm line 20")], [qw/XSLoader 0.16/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 11. Params::Validate 1.07, DateTime/Duration.pm line 12")], [qw/Params::Validate 1.07/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 12. Module::Implementation 0.06, Params/Validate.pm line 12")], [qw/Module::Implementation 0.06/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 13. Module::Runtime 0.013, Module/Implementation.pm line 9")], [qw/Module::Runtime 0.013/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 18. Params::Validate::XS 1.07, Module/Runtime.pm line 317")], [qw/Params::Validate::XS 1.07/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 45. Class::Load::XS, Module/Runtime.pm line 317 (FAILED)")], [qw/Class::Load::XS/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 46. Class::Load::PP 0.20, Module/Runtime.pm line 317")], [qw/Class::Load::PP 0.20/], "module parse" );
t/parse_module_and_version.t view on Meta::CPAN
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 49. Package::DeprecationManager 0.13, Package/Stash.pm line 56")], [qw/Package::DeprecationManager 0.13/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 14. Try::Tiny 0.11, Module/Implementation.pm line 10")], [qw/Try::Tiny 0.11/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 15. vars 1.02, Try/Tiny.pm line 6")], [qw/vars 1.02/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 16. warnings::register 1.02, vars.pm line 7")], [qw/warnings::register 1.02/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 17. Params::Validate::Constants 1.07, Params/Validate.pm line 13")], [qw/Params::Validate::Constants 1.07/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 19. overload 1.18, DateTime/Duration.pm line 21")], [qw/overload 1.18/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 20. overloading 0.02, overload.pm line 85")], [qw/overloading 0.02/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 21. constant 1.23, DateTime/Duration.pm line 23")], [qw/constant 1.23/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 22. utf8 1.09, constant.pm line 36")], [qw/utf8 1.09/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 23. utf8_heavy.pl, utf8.pm line 17")], [qw/utf8_heavy.pl/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 24. unicore/Heavy.pl, utf8_heavy.pl line 176 [utf8]")], [qw{unicore/Heavy.pl}], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 25. unicore/lib/Perl/_PerlIDS.pl, utf8_heavy.pl line 518 [utf8]")], [qw{unicore/lib/Perl/_PerlIDS.pl}], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 26. DateTime::Locale 0.45, DateTime.pm line 45")], [qw/DateTime::Locale 0.45/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 27. DateTime::Locale::Base, DateTime/Locale.pm line 10")], [qw/DateTime::Locale::Base/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 28. List::MoreUtils 0.33, DateTime/Locale/Base.pm line 8")], [qw/List::MoreUtils 0.33/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 29. DynaLoader 1.14, List/MoreUtils.pm line 6")], [qw/DynaLoader 1.14/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 30. Config, DynaLoader.pm line 22")], [qw/Config/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 31. DateTime::Locale::Catalog, DateTime/Locale.pm line 11")], [qw/DateTime::Locale::Catalog/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 57. DateTime::Locale::en_US, DateTime/Locale.pm line 280 (eval 25)")], [qw/DateTime::Locale::en_US/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 32. DateTime::TimeZone 1.57, DateTime.pm line 46")], [qw/DateTime::TimeZone 1.57/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 33. DateTime::TimeZone::Catalog 1.57, DateTime/TimeZone.pm line 11")], [qw/DateTime::TimeZone::Catalog 1.57/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 34. DateTime::TimeZone::Floating 1.57, DateTime/TimeZone.pm line 12")], [qw/DateTime::TimeZone::Floating 1.57/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 35. parent 0.225, DateTime/TimeZone/Floating.pm line 9")], [qw/parent 0.225/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 36. Class::Singleton 1.4, parent.pm line 20")], [qw/Class::Singleton 1.4/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 37. DateTime::TimeZone::OffsetOnly 1.57, parent.pm line 20")], [qw/DateTime::TimeZone::OffsetOnly 1.57/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 38. DateTime::TimeZone::UTC 1.57, DateTime/TimeZone/OffsetOnly.pm line 11")], [qw/DateTime::TimeZone::UTC 1.57/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 39. DateTime::TimeZone::Local 1.57, DateTime/TimeZone.pm line 13")], [qw/DateTime::TimeZone::Local 1.57/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 40. Class::Load 0.20, DateTime/TimeZone/Local.pm line 9")], [qw/Class::Load 0.20/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 41. base 2.18, Class/Load.pm line 7")], [qw/base 2.18/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 58. DateTime::Locale::en, base.pm line 81 (eval 26)")], [qw/DateTime::Locale::en/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 59. DateTime::Locale::root, base.pm line 81 (eval 27)")], [qw/DateTime::Locale::root/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 42. Data::OptList 0.107, Class/Load.pm line 8")], [qw/Data::OptList 0.107/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 43. Params::Util 1.07, Data/OptList.pm line 10")], [qw/Params::Util 1.07/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 44. Sub::Install 0.926, Data/OptList.pm line 11")], [qw/Sub::Install 0.926/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 50. File::Spec 3.39_02, DateTime/TimeZone/Local.pm line 11")], [qw/File::Spec 3.39_02/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 51. File::Spec::Unix 3.39_02, File/Spec.pm line 22")], [qw/File::Spec::Unix 3.39_02/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 52. POSIX 1.30, DateTime.pm line 49")], [qw/POSIX 1.30/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 53. Fcntl 1.11, POSIX.pm line 17")], [qw/Fcntl 1.11/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 54. Tie::Hash 1.04, POSIX.pm line 419 [POSIX::SigRt]")], [qw/Tie::Hash 1.04/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 55. integer 1.00, DateTime.pm line 702")], [qw/integer 1.00/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 56. DateTime::Infinite 0.78, DateTime.pm line 70")], [qw/DateTime::Infinite 0.78/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 60. Set::Object 1.26, -e line 0 [main]")], [qw/Set::Object 1.26/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 61. AutoLoader 5.72, Set/Object.pm line 503")], [qw/AutoLoader 5.72/], "module parse" );
#cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 62. Set::Object::Weak, Set/Object.pm line 1091")], [qw/Set::Object::Weak/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 63. LWP::Simple 6.00, -e line 0 [main]")], [qw/LWP::Simple 6.00/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 64. HTTP::Status 6.03, LWP/Simple.pm line 14")], [qw/HTTP::Status 6.03/], "module parse" );
t/parse_module_and_version.t view on Meta::CPAN
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 101. XML::LibXML::AttributeHash 2.0004, XML/LibXML.pm line 1497 [XML::LibXML::Element]")], [qw/XML::LibXML::AttributeHash 2.0004/], "module parse" );
cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 102. XML::SAX::Exception 1.08, XML/LibXML.pm line 1995 [XML::LibXML::_SAXParser]")], [qw/XML::SAX::Exception 1.08/], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 17. Params::Validate::Constants 1.07, Params/Validate.pm line 13")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 19. overload 1.18, DateTime/Duration.pm line 21")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 20. overloading 0.02, overload.pm line 85")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 21. constant 1.23, DateTime/Duration.pm line 23")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 22. utf8 1.09, constant.pm line 36")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 23. utf8_heavy.pl, utf8.pm line 17")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 24. unicore/Heavy.pl, utf8_heavy.pl line 176 [utf8]")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 25. unicore/lib/Perl/_PerlIDS.pl, utf8_heavy.pl line 518 [utf8]")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 26. DateTime::Locale 0.45, DateTime.pm line 45")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 27. DateTime::Locale::Base, DateTime/Locale.pm line 10")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 28. List::MoreUtils 0.33, DateTime/Locale/Base.pm line 8")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 29. DynaLoader 1.14, List/MoreUtils.pm line 6")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 30. Config, DynaLoader.pm line 22")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 31. DateTime::Locale::Catalog, DateTime/Locale.pm line 11")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 57. DateTime::Locale::en_US, DateTime/Locale.pm line 280 (eval 25)")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 32. DateTime::TimeZone 1.57, DateTime.pm line 46")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 33. DateTime::TimeZone::Catalog 1.57, DateTime/TimeZone.pm line 11")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 34. DateTime::TimeZone::Floating 1.57, DateTime/TimeZone.pm line 12")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 35. parent 0.225, DateTime/TimeZone/Floating.pm line 9")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 36. Class::Singleton 1.4, parent.pm line 20")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 37. DateTime::TimeZone::OffsetOnly 1.57, parent.pm line 20")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 38. DateTime::TimeZone::UTC 1.57, DateTime/TimeZone/OffsetOnly.pm line 11")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 39. DateTime::TimeZone::Local 1.57, DateTime/TimeZone.pm line 13")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 40. Class::Load 0.20, DateTime/TimeZone/Local.pm line 9")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 41. base 2.18, Class/Load.pm line 7")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 58. DateTime::Locale::en, base.pm line 81 (eval 26)")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 59. DateTime::Locale::root, base.pm line 81 (eval 27)")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 42. Data::OptList 0.107, Class/Load.pm line 8")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 43. Params::Util 1.07, Data/OptList.pm line 10")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 44. Sub::Install 0.926, Data/OptList.pm line 11")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 50. File::Spec 3.39_02, DateTime/TimeZone/Local.pm line 11")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 51. File::Spec::Unix 3.39_02, File/Spec.pm line 22")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 52. POSIX 1.30, DateTime.pm line 49")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 53. Fcntl 1.11, POSIX.pm line 17")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 54. Tie::Hash 1.04, POSIX.pm line 419 [POSIX::SigRt]")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 55. integer 1.00, DateTime.pm line 702")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 56. DateTime::Infinite 0.78, DateTime.pm line 70")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 60. Set::Object 1.26, -e line 0 [main]")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 61. [AutoLoader 5.72, Set/Object.pm line 503")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 62. Set::Object::Weak, Set/Object.pm line 1091")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 63. LWP::Simple 6.00, -e line 0 [main]")], [qw//], "module parse" );
# cmp_deeply( [App::Prove::Plugin::TraceUse::_parse_module_and_version(" 64. HTTP::Status 6.03, LWP/Simple.pm line 14")], [qw//], "module parse" );
App-ProxyHunter-Model-Schema-Pg
view release on metacpan or search on metacpan
lib/App/ProxyHunter/Model/Schema/Pg.pm view on Meta::CPAN
package App::ProxyHunter::Model::Schema::Pg;
use Mo;
use Teng::Schema::Declare;
use DateTime::Format::Pg;
use App::ProxyHunter::Constants;
use App::ProxyHunter::Model::SchemaUtils qw'proxy_name_to_type proxy_type_to_name';
extends 'App::ProxyHunter::Model::Schema';
our $VERSION = '0.01';
sub perl_datetime_to_sql {
return unless defined $_[0];
DateTime::Format::Pg->format_datetime($_[0]);
}
sub sql_datetime_to_perl {
return unless defined $_[0];
DateTime::Format::Pg->parse_datetime($_[0])->set_time_zone(TZ);
}
sub perl_bool_to_sql {
if (ref $_[0]) {
return ${$_[0]} ? 't' : 'f';
App-ProxyHunter-Model-Schema-SQLite
view release on metacpan or search on metacpan
lib/App/ProxyHunter/Model/Schema/SQLite.pm view on Meta::CPAN
package App::ProxyHunter::Model::Schema::SQLite;
use Mo;
use Teng::Schema::Declare;
use DateTime;
use App::ProxyHunter::Constants;
use App::ProxyHunter::Model::SchemaUtils qw'proxy_name_to_type proxy_type_to_name';
extends 'App::ProxyHunter::Model::Schema';
our $VERSION = '0.01';
lib/App/ProxyHunter/Model/Schema/SQLite.pm view on Meta::CPAN
$_[0]->epoch;
}
sub sql_datetime_to_perl {
return unless defined $_[0];
DateTime->from_epoch(epoch => $_[0], time_zone => TZ);
}
table {
name 'proxy';
pk 'id';
App-ProxyHunter-Model-Schema-mysql
view release on metacpan or search on metacpan
lib/App/ProxyHunter/Model/Schema/mysql.pm view on Meta::CPAN
package App::ProxyHunter::Model::Schema::mysql;
use Mo;
use Teng::Schema::Declare;
use DateTime::Format::MySQL;
use App::ProxyHunter::Constants;
use App::ProxyHunter::Model::SchemaUtils qw'proxy_name_to_type proxy_type_to_name';
extends 'App::ProxyHunter::Model::Schema';
our $VERSION = '0.01';
sub perl_datetime_to_sql {
return unless defined $_[0];
DateTime::Format::MySQL->format_datetime($_[0]);
}
sub sql_datetime_to_perl {
return unless defined $_[0] && $_[0] ne '0000-00-00 00:00:00';
DateTime::Format::MySQL->parse_datetime($_[0])->set_time_zone(TZ);
}
table {
name 'proxy';
pk 'id';
App-RPi-EnvUI
view release on metacpan or search on metacpan
lib/App/RPi/EnvUI/API.pm view on Meta::CPAN
use App::RPi::EnvUI::DB;
use App::RPi::EnvUI::Event;
use Carp qw(confess);
use Crypt::SaltedHash;
use Data::Dumper;
use DateTime;
use JSON::XS;
use Logging::Simple;
use Mock::Sub no_warnings => 1;
use RPi::Const qw(:all);
lib/App/RPi/EnvUI/API.pm view on Meta::CPAN
return if $override;
my $dt_now = defined $dt_now_test
? $dt_now_test->set_time_zone('local')
: DateTime->now->set_time_zone('local');
if (! $light_initialized){
$log->_5("initializing light");
App-Rad-Plugin-ReadLine
view release on metacpan or search on metacpan
first_version = 0.001
version_regexp = ^(.+)$
; for {{$NEXT}} in Changes
[NextRelease]
; this is a DateTime format
format = %-9v %{yyyy-MM-dd}d
time_zone = GMT
; @Basic:
[GatherDir]
App-RetroPAN
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Cpanel::JSON::XS" : "0",
"DateTime" : "0",
"DateTime::Format::ISO8601" : "0",
"Getopt::Long" : "0",
"HTTP::Request" : "0",
"LWP::UserAgent" : "0",
"List::MoreUtils" : "0",
"Module::CoreList" : "2.99",
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Macro.pm view on Meta::CPAN
use App::RoboBot::Nick;
use App::RoboBot::Parser;
use Clone qw( clone );
use Data::Dumper;
use DateTime;
use DateTime::Format::Pg;
use JSON;
use Scalar::Util qw( blessed );
has 'bot' => (
is => 'ro',
lib/App/RoboBot/Macro.pm view on Meta::CPAN
predicate => 'has_definer',
);
has 'timestamp' => (
is => 'rw',
isa => 'DateTime',
traits => [qw( SetOnce )],
default => sub { DateTime->now() },
required => 1,
);
has 'is_locked' => (
is => 'rw',
lib/App/RoboBot/Macro.pm view on Meta::CPAN
network => $network,
name => $res->{'name'},
arguments => decode_json($res->{'arguments'}),
definition => $res->{'definition'},
definer => App::RoboBot::Nick->new( config => $bot->config, name => $res->{'nick'} ),
timestamp => DateTime::Format::Pg->parse_datetime($res->{'defined_at'}),
is_locked => $res->{'is_locked'},
);
}
$logger->debug('All macros loaded. Returning collection.');
App-SCM-Digest
view release on metacpan or search on metacpan
lib/App/SCM/Digest.pm view on Meta::CPAN
use App::SCM::Digest::Utils qw(system_ad slurp);
use App::SCM::Digest::SCM::Factory;
use autodie;
use DateTime;
use DateTime::Format::Strptime;
use Getopt::Long;
use Email::MIME;
use File::Copy;
use File::Path;
use File::ReadBackwards;
lib/App/SCM/Digest.pm view on Meta::CPAN
my $config = $self->{'config'};
my $tz = $config->{'timezone'} || 'UTC';
if (not defined $from and not defined $to) {
$from = DateTime->now(time_zone => $tz)
->subtract(days => 1)
->strftime(PATTERN);
$to = DateTime->now(time_zone => $tz)
->strftime(PATTERN);
} elsif (not defined $from) {
$from = '0000-01-01T00:00:00';
} elsif (not defined $to) {
$to = '9999-12-31T23:59:59';
}
my $strp =
DateTime::Format::Strptime->new(pattern => PATTERN,
time_zone => $tz);
my ($from_dt, $to_dt) =
map { $strp->parse_datetime($_) }
($from, $to);
lib/App/SCM/Digest.pm view on Meta::CPAN
if ((not $tz) or ($tz eq 'UTC')) {
return $datetime;
}
my $strp =
DateTime::Format::Strptime->new(pattern => PATTERN,
time_zone => 'UTC');
my $dt = $strp->parse_datetime($datetime);
$dt->set_time_zone($tz);
return $dt->strftime(PATTERN);
lib/App/SCM/Digest.pm view on Meta::CPAN
The local copies of the repositories are stored in C<repository_path>,
which must also be a directory.
The C<timezone> entry is optional, and defaults to 'UTC'. It must be
a valid constructor value for L<DateTime::TimeZone>. See
L<DateTime::TimeZone::Catalog> for a list of valid options.
C<ignore_errors> is an optional boolean, and defaults to false. If
false, errors will cause methods to die immediately. If true, errors
will instead be printed to C<stderr>, and the method will continue
onto the next repository.
App-SD
view release on metacpan or search on metacpan
lib/App/SD/Model/Ticket.pm view on Meta::CPAN
my $props = $args{props};
# skip blank
return 1 unless $props->{due};
#skip well formed
return 1 if $props->{due} =~ /^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/;
require DateTime::Format::Natural;
my $parser = DateTime::Format::Natural->new;
my $dt = $parser->parse_datetime($props->{due});
if ($parser->success) {
# operate on $dt/@dt, for example:
$props->{due} = sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $dt->year, $dt->month, $dt->day, $dt->hour, $dt->min, $dt->sec);
}
lib/App/SD/Model/Ticket.pm view on Meta::CPAN
if (!$then) {
warn "Unknown date format '$date'";
return 0;
}
if ($then < DateTime->now()){
return 1;
}
return 0;
}
App-SahUtils
view release on metacpan or search on metacpan
script/coerce-with-sah view on Meta::CPAN
tags => ['category:output'],
},
},
examples => [
{
src => q([[prog]] date --coerce-to DateTime --data-as-perl '"2016-05-22"'),
src_plang => 'bash',
},
{
summary => 'Coerce multiple data',
src => q([[prog]] date --coerce-to 'float(epoch)' --multiple-data-as-perl '["2016-05-15", "1463328281"]'),
script/coerce-with-sah view on Meta::CPAN
src => q([[prog]] duration --coerce-to 'float(secs)' -c),
src_plang => 'bash',
},
{
summary => 'Show source code, with line number',
src => q([[prog]] duration --coerce-to 'DateTime::Duration' -c -l),
src_plang => 'bash',
},
{
summary => 'Show source code (JavaScript)',
src => q([[prog]] date -C js -c),
script/coerce-with-sah view on Meta::CPAN
=head1 EXAMPLES
=head2 Example #1
% coerce-with-sah date --coerce-to DateTime --data-as-perl '"2016-05-22"'
do {
my $a = bless({
formatter => undef,
local_c => {
day => 22,
script/coerce-with-sah view on Meta::CPAN
time_format_long => "h:mm:ss\x{202F}a z",
time_format_medium => "h:mm:ss\x{202F}a",
time_format_short => "h:mm\x{202F}a",
variant => undef,
version => 44,
}, "DateTime::Locale::FromData"),
offset_modifier => 0,
rd_nanosecs => 0,
tz => bless({
is_olson => 1,
max_year => 2033,
script/coerce-with-sah view on Meta::CPAN
0,
"+0730",
],
[61946267400, "Inf", 61946292600, "Inf", 25200, 0, "WIB"],
],
}, "DateTime::TimeZone::Asia::Jakarta"),
utc_rd_days => 736105,
utc_rd_secs => 61200,
utc_year => 2017,
}, "DateTime");
$a->{locale}{locale_data}{am_pm_abbreviated} = $a->{locale}{am_pm_abbreviated};
$a->{locale}{locale_data}{available_formats} = $a->{locale}{available_formats};
$a->{locale}{locale_data}{day_format_abbreviated} = $a->{locale}{day_format_abbreviated};
$a->{locale}{locale_data}{day_format_narrow} = $a->{locale}{day_format_narrow};
$a->{locale}{locale_data}{day_format_wide} = $a->{locale}{day_format_wide};
script/coerce-with-sah view on Meta::CPAN
sub {
my $data = shift;
unless (defined $data) {
return undef;
}
do { if ($data =~ /\A([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2})(\.[0-9]{1,9})?)?\z/) { my $res = do { if ($1 > 23) { ["Invalid hour '$1', must be between 0-23"] } elsif ($2 > 59) { ["Invalid minute '$2', must be between 0-59"] } elsif (defined $3...
}
=head2 Show source code, with line number
% coerce-with-sah duration --coerce-to 'DateTime::Duration' -c -l
1|require DateTime::Duration;
2|require Scalar::Util;
3|require Time::Duration::Parse::AsHash;
4|sub {
5| my $data = shift;
6| unless (defined $data) {
7| return undef;
8| }
9| do { if ($data =~ /\A([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2})(\.[0-9]{1,9})?)?\z/) { my $res = do { if ($1 > 23) { ["Invalid hour '$1', must be between 0-23"] } elsif ($2 > 59) { ["Invalid minute '$2', must be between 0-59"] } elsif (defin...
10|}
=head2 Show source code (JavaScript)
% coerce-with-sah date -C js -c
App-Schema-Deploy
view release on metacpan or search on metacpan
t/data/ex1/Schema/Foo/0_1_0/Result/Person.pm view on Meta::CPAN
use strict;
use warnings;
our $VERSION = 0.04;
__PACKAGE__->load_components('InflateColumn::DateTime');
__PACKAGE__->table('person');
__PACKAGE__->add_columns(
'person_id' => {
'data_type' => 'integer',
'is_auto_increment' => 1,
App-SimpleBackuper
view release on metacpan or search on metacpan
local/lib/perl5/Test/Spec.pm view on Meta::CPAN
my $date;
describe "in a leap year" => sub {
before each => sub {
$date = DateTime->new(year => 2000, month => 2, day => 28);
};
it "should know that it is in a leap year" => sub {
ok($date->is_leap_year);
};
local/lib/perl5/Test/Spec.pm view on Meta::CPAN
};
describe "not in a leap year" => sub {
before each => sub {
$date = DateTime->new(year => 2001, month => 2, day => 28);
};
it "should know that it is NOT in a leap year" => sub {
ok(!$date->is_leap_year);
};
App-SimplenoteSync
view release on metacpan or search on metacpan
lib/App/SimplenoteSync.pm view on Meta::CPAN
use v5.10;
use open qw(:std :utf8);
use Moose;
use MooseX::Types::Path::Class;
use Log::Any qw//;
use DateTime;
use Try::Tiny;
use File::ExtAttr ':all';
use Proc::InvokeEditor;
use App::SimplenoteSync::Note;
use WebService::Simplenote;
lib/App/SimplenoteSync.pm view on Meta::CPAN
'Comparing dates: remote [%s] // local [%s]',
$remote_note->modifydate->iso8601,
$local_note->modifydate->iso8601
);
given (
DateTime->compare_ignore_floating(
$remote_note->modifydate, $local_note->modifydate
))
{
when (0) {
$self->logger->debug("[$key] not modified");
lib/App/SimplenoteSync.pm view on Meta::CPAN
# TODO: check ctime
# XXX: this isn't called anywhere?!?
method _update_dates(App::SimplenoteSync::Note $note, Path::Class::File $file)
{
my $mod_time = DateTime->from_epoch(epoch => $file->stat->mtime);
given (DateTime->compare($mod_time, $note->modifydate)) {
when (0) {
# no change
return;
}
App-SourcePlot
view release on metacpan or search on metacpan
lib/App/SourcePlot.pm view on Meta::CPAN
use Config::IniFiles;
use Tk;
use Tk::Balloon;
use Tk::FileSelect;
use App::SourcePlot::Plotter::Tk;
use DateTime;
use DateTime::Format::Strptime;
use App::SourcePlot::Source;
use File::HomeDir;
use File::ShareDir qw/dist_file/;
use File::Spec;
use Tk::AstroCatalog;
lib/App/SourcePlot.pm view on Meta::CPAN
# create the month menu button
$topFrame->Label(
-text => "Month:",
)->grid(-column => 0, -row => 1, -padx => 5, -pady => 5);
my $strp = DateTime::Format::Strptime->new(
pattern => '%Y/%m/%d',
time_zone => 'UTC',
on_error => 'croak');
my $dt = $strp->parse_datetime($DATE);
lib/App/SourcePlot.pm view on Meta::CPAN
my $yearEnt = $topFrame->Entry(
-relief => 'sunken',
-width => 10,
)->grid(-column => 1, -row => 2, -padx => 10, -pady => 5);
$yearEnt->bind('<KeyPress-Return>' => sub {
my $strp = DateTime::Format::Strptime->new(
pattern => '%Y %B %d',
on_error => 'croak');
my $dt = $strp->parse_datetime(
$monthEnt
lib/App/SourcePlot.pm view on Meta::CPAN
destroy $Top;
});
# create the update subroutine
my $complete = sub {
my $strp = DateTime::Format::Strptime->new(
pattern => '%B %d %Y',
on_error => 'croak');
my $dt = $strp->parse_datetime(
$monthEnt
lib/App/SourcePlot.pm view on Meta::CPAN
$plotter->clean();
# calc the world coords
print " Calculating the world coordinate system\n" if $locateBug;
if ($X_AXIS =~ /time/i) {
my $strp = DateTime::Format::Strptime->new(
pattern => '%Y/%m/%d %H:%M:%S',
on_error => 'croak');
my $dt = $strp->parse_datetime($DATE . ' ' . $TIME);
lib/App/SourcePlot.pm view on Meta::CPAN
print "ERROR: X axis undefined!!\n\n";
$minX = 0;
$maxX = 0;
}
if ($Y_AXIS =~ /time/i) {
my $strp = DateTime::Format::Strptime->new(
pattern => '%Y/%m/%d %H:%M:%S',
on_error => 'croak');
my $dt = $strp->parse_datetime($DATE . ' ' . $TIME);
lib/App/SourcePlot.pm view on Meta::CPAN
return;
}
print "The gm time is $hh:$mm:$ss and date is $yr\/$mo\/$md\n" if $timeBug;
#calculate the local time
my $strp = DateTime::Format::Strptime->new(
pattern => '%Y/%m/%d %H:%M:%S',
on_error => 'croak');
my $dt = $strp->parse_datetime("$yr\/$mo\/$md $hh:$mm:$ss");
App-SpamcupNG
view release on metacpan or search on metacpan
lib/App/SpamcupNG/Summary/Recorder.pm view on Meta::CPAN
use strict;
use warnings;
use Carp qw(confess);
use Hash::Util qw(lock_hash);
use DBI 1.643;
use DateTime 1.59;
our $VERSION = '0.020'; # VERSION
=pod
lib/App/SpamcupNG/Summary/Recorder.pm view on Meta::CPAN
) or confess $self->{dbh}->errstr;
}
sub _save_summary {
my ( $self, $summary, $fields_ref ) = @_;
my $now = $self->{now} ? $self->{now} : DateTime->now->epoch;
my $insert = q{
INSERT INTO summary
(tracking_id, created, charset_id, content_type_id, age, age_unit_id, mailer_id)
VALUES (?, ?, ?, ?, ?, ?, ?)
};
App-Spoor
view release on metacpan or search on metacpan
lib/App/Spoor/AccessEntryParser.pm view on Meta::CPAN
=over 2
=item * type: This is hardcoded to 'access'
=item * log_time: A DateTime instance representing the time of the log entry
=item * event: A description of the event that the entry refers to - can be one of forward_added_partial_ip, forward_removed, unrecognised.
=item * ip: The IP address listed in the entry
lib/App/Spoor/AccessEntryParser.pm view on Meta::CPAN
=back
=cut
sub parse {
use DateTime::Format::Strptime;
use URI::Escape qw( uri_unescape );
my $log_entry = shift;
my $level;
my $event;
my $status;
my $forward_recipient;
my %result;
my $date_parser = DateTime::Format::Strptime->new(pattern => '%m/%d/%Y:%H:%M:%S %z', on_error => 'croak');
if ($log_entry =~ /
\A
(?<ip>\S+)\s
-\s
App-SpreadRevolutionaryDate
view release on metacpan or search on metacpan
lib/App/SpreadRevolutionaryDate.pm view on Meta::CPAN
no Moose;
__PACKAGE__->meta->make_immutable;
# A module must return a true value. Traditionally, a module returns 1.
# But this module is a revolutionary one, so it discards all old traditions.
# Idea borrowed from Jean Forget's DateTime::Calendar::FrenchRevolutionary.
"Quand le gouvernement viole les droits du peuple,
l'insurrection est pour le peuple le plus sacré
et le plus indispensable des devoirs";
__END__
App-Sqitch
view release on metacpan or search on metacpan
inc/Menlo/Sqitch.pm view on Meta::CPAN
DBD-ODBC
DBD-Oracle
DBD-Pg
DBD-SQLite
Data-OptList
DateTime
DateTime-Locale
DateTime-TimeZone
Devel-Caller
Devel-LexAlias
Devel-StackTrace
Eval-Closure
Exception-Class
App-Squid-Redirector-Fugu
view release on metacpan or search on metacpan
requires:
BerkeleyDB: '0'
Carp: '0'
Config::Any: '0'
DBI: '0'
DateTime: '0'
Getopt::Long: '0'
Log::Handler: '0'
Net::LDAP: '0'
strict: '0'
warnings: '0'
App-Standup-Diary
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Data::Printer::Filter undef
Data::Printer::Filter::ARRAY undef
Data::Printer::Filter::CODE undef
Data::Printer::Filter::ContentType undef
Data::Printer::Filter::DB undef
Data::Printer::Filter::DateTime undef
Data::Printer::Filter::Digest undef
Data::Printer::Filter::FORMAT undef
Data::Printer::Filter::GLOB undef
Data::Printer::Filter::GenericClass undef
Data::Printer::Filter::HASH undef
App-StaticImageGallery
view release on metacpan or search on metacpan
lib/App/StaticImageGallery/Base/Any.pm view on Meta::CPAN
package # hidden from pause
App::StaticImageGallery::Base::Any;
use Carp;
use DateTime;
sub new {
my $class = shift;
my $self = {};
my %args = @_;
App-Syndicator
view release on metacpan or search on metacpan
lib/App/Syndicator/DB.pm view on Meta::CPAN
use MooseX::Declare;
class App::Syndicator::DB
with App::Syndicator::FeedReader {
use KiokuDB;
use DateTime;
use App::Syndicator::Message;
use App::Syndicator::Types qw/
KiokuDB_T Message_T
/;
use MooseX::Types::Moose qw/Str Int/;
App-Sysadmin-Log-Simple
view release on metacpan or search on metacpan
lib/App/Sysadmin/Log/Simple.pm view on Meta::CPAN
use v5.10.1;
# ABSTRACT: application class for managing a simple sysadmin log
our $VERSION = '0.009'; # VERSION
use autodie qw(:file :filesys);
use DateTime;
use Carp;
use Module::Pluggable
search_path => [__PACKAGE__],
instantiate => 'new';
sub new {
my $class = shift;
my %opts = @_;
my $today = DateTime->now;
if ($opts{date}) {
my ($in_year, $in_month, $in_day) = split(m{/}, $opts{date});
my $in_date = DateTime->new(
year => $in_year,
month => $in_month,
day => $in_day,
) or croak "Couldn't understand your date - use YYYY/MM/DD\n";
croak "Cannot use a date in the future\n" if $in_date > $today;
App-TEWK-tt
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Cwd" : "0",
"DateTime" : "0.37",
"File::Find::Rule" : "0",
"IO::All" : "0",
"List::MoreUtils" : "0",
"Modern::Perl" : "0",
"Term::ANSIColor" : "0",
App-Tel
view release on metacpan or search on metacpan
local/lib/perl5/Module/ScanDeps.pm view on Meta::CPAN
},
'Date/Manip/TZ.pm' => sub {
return (_glob_in_inc('Date/Manip/TZ', 1),
_glob_in_inc('Date/Manip/Offset', 1));
},
'DateTime/Format/Builder/Parser.pm' => 'sub',
'DateTime/Locale.pm' => 'sub',
'DateTime/TimeZone.pm' => 'sub',
'DBI.pm' => sub {
grep !/\bProxy\b/, _glob_in_inc('DBD', 1);
},
'DBIx/Class.pm' => 'sub',
'DBIx/SearchBuilder.pm' => 'sub',
App-TeleGramma
view release on metacpan or search on metacpan
lib/App/TeleGramma/Plugin/Core/YearProgress.pm view on Meta::CPAN
# ABSTRACT: TeleGramma plugin to tell you how the year is progressing
use Mojo::Base 'App::TeleGramma::Plugin::Base';
use App::TeleGramma::BotAction::Listen;
use App::TeleGramma::Constants qw/:const/;
use DateTime;
sub synopsis {
"Periodically remind you how depressingly fast the year is passing"
}
lib/App/TeleGramma/Plugin/Core/YearProgress.pm view on Meta::CPAN
# how many seconds in a year?
my $year_seconds = 365 * 86400; # no such thing as leap year la la la
# how many seconds are we into this year?
my $year_start_ts = DateTime->now->truncate(to => 'year')->epoch;
my $year_seconds_so_far = time() - $year_start_ts;
# as a percent?
my $percent = sprintf("%0.${decimals}f", 100 * ($year_seconds_so_far / $year_seconds));
App-TemplateCMD
view release on metacpan or search on metacpan
templates/perl/dbic/table.pm view on Meta::CPAN
use strict;
use warnings;
use base qw/DBIx::Class::Core/;
__PACKAGE__->load_components('InflateColumn::DateTime', 'Core');
# or ordered columns
#__PACKAGE__->load_components(qw/ Ordered /);
#__PACKAGE__->position_column('rank');
__PACKAGE__->table('[% table %]');
App-TimeTracker
view release on metacpan or search on metacpan
helper/convert_2_003_to_2_004.pl view on Meta::CPAN
use File::Find::Rule;
use Data::Dumper;
use App::TimeTracker::Data::Task;
use App::TimeTracker::Proto;
use DateTime;
use Path::Class;
use Try::Tiny;
use JSON::XS;
use Path::Class;
( run in 0.516 second using v1.01-cache-2.11-cpan-05444aca049 )