Result:
found more than 290 distributions - search limited to the first 2001 files matching your query
( run in 0.654 )
Acme-Working-Out-Dependencies-From-META-files-Will-Be-Wrong-At-Some-Point-Like-This-Module-For-Instance
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'CPANPLUS::Internals::Source::CPANIDX', '0.04',
'Class::Accessor::Grouped', '0.10003',
'Class::Method::Modifiers', '1.07',
'Config::Perl::V', '0.12',
'Data::PowerSet', '0.05',
'DateTime::Event::Recurrence', '0.16',
'DateTime::Format::Builder', '0.80',
'DateTime::Format::Natural', '0.96',
'DateTime::Format::Strptime', '1.5000',
'DateTime::Locale', '0.45',
'DateTime::TimeZone', '1.34',
'Devel::Caller', '2.05',
'Devel::GlobalDestruction', '0.03',
'Devel::PatchPerl', '0.36',
'Dist::Zilla::Plugin::ChangelogFromGit', '0.002',
'Dist::Zilla::Plugin::MakeMaker::Awesome', '0.12',
Makefile.PL view on Meta::CPAN
'Module::Install::ExtraTests', '0.007',
'Module::Install::GithubMeta', '0.10',
'MooseX::Async', '0.07',
'MooseX::Method::Signatures', '0.36',
'MooseX::Object::Pluggable', '0.0011',
'MooseX::Types::DateTime', '0.05',
'MouseX::AttributeHelpers', '0.06',
'MouseX::NativeTraits', '1.04',
'Net::HTTP', '6.01',
'Net::OAuth', '0.27',
'Net::Twitter', '3.17001',
Acrux
view release on metacpan or search on metacpan
lib/Acrux/Util.pm view on Meta::CPAN
say fdt("%w, %DD-%MON-%YYYY %hh:%mm:%ss %G", time, 1); # Tue, 12-Feb-2013 13:35:04 GMT
# COOKIE (RFC2616 as rfc1123-date)
say fdt("%w, %DD %MON %YYYY %hh:%mm:%ss %G", time, 1); # Tue, 12 Feb 2013 13:35:04 GMT
For more features please use L<Date::Format>, L<DateTime> and L<POSIX/strftime>
=head2 fduration
print fduration( 123 );
Advent-Bundles
view release on metacpan or search on metacpan
lib/Bundle/Advent/Year2004.pm view on Meta::CPAN
$ cpan Bundle::Advent::Year2004
=head1 CONTENTS
DateTime - L<pod|DateTime>, L<http://www.perladvent.org/2004/01/>
Term::ANSIColor - L<pod|Term::ANSIColor>, L<http://www.perladvent.org/2004/02/>
Class::Accessor::Chained - L<pod|Class::Accessor::Chained>, L<http://www.perladvent.org/2004/03/>
Aion-Format
view release on metacpan or search on metacpan
lib/Aion/Format.pm view on Meta::CPAN
=item * C<Acme::Roman> added support roman numerals in perl code (C<< I + II -E<gt> III >>), but use C<+>, C<-> and C<*> operations only.
=item * C<Date::Roman> is Perl OO extension for handling roman style dates, but with arabic numbers (id 3 702).
=item * C<DateTime::Format::Roman> is roman date formatter, but with arabic numbers (5 Kal Jun 2003).
=back
=head2 round ($number, $decimal)
Aion-Fs
view release on metacpan or search on metacpan
lib/Aion/Fs.pm view on Meta::CPAN
=item * L<File::Stat::Ls> – возвращает режим в формате утилиты ls.
=item * L<File::Stat::Moose> – ООП Ð¸Ð½Ñ‚ÐµÑ€Ñ„ÐµÐ¹Ñ Ð½Ð° Moose.
=item * L<File::Stat::OO> – предоÑтавлÑет ООП-Ð¸Ð½Ñ‚ÐµÑ€Ñ„ÐµÐ¹Ñ Ðº stat. Может возвращать atime, ctime и mtime Ñразу в C<DateTime>.
=item * L<File::Stat::Trigger> – Ñледилка за изменением атрибутов файла.
=item * L<Linux::stat> – парÑит /proc/stat и возвращает доп-информацию. Однако в других ОС не работает.
Aion
view release on metacpan or search on metacpan
lib/Aion/Types.pm view on Meta::CPAN
subtype "Tel", as &Str, where { /^\+\d{7,}\z/ };
subtype "Url", as &Str, where { /^https?:\/\// };
subtype "Path", as &Str, where { /^\// };
subtype "Html", as &Str, where { /^\s*<(!doctype|html)\b/i };
subtype "StrDate", as &Str, where { /^\d{4}-\d{2}-\d{2}\z/ };
subtype "StrDateTime", as &Str, where { /^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}\z/ };
subtype "StrMatch[qr/.../]", as &Str, where { $_ =~ A };
subtype "ClassName", as &Str, where { !!$_->can('new') };
subtype "RoleName", as &Str, where { !!$_->can('requires') };
subtype "Num", as &Str, where { looks_like_number($_) && /[\dfn]\z/i };
lib/Aion/Types.pm view on Meta::CPAN
Tel
Url
Path
Html
StrDate
StrDateTime
StrMatch[qr/.../]
ClassName[A]
RoleName[A]
Rat
Num
lib/Aion/Types.pm view on Meta::CPAN
The date is format C<yyyy-mm-dd>.
"2001-01-12" ~~ StrDate # -> 1
"01-01-01" ~~ StrDate # -> ""
=head2 StrDateTime
The dateTime is format C<yyyy-mm-dd HH:MM:SS>.
"2012-12-01 00:00:00" ~~ StrDateTime # -> 1
"2012-12-01 00:00:00 " ~~ StrDateTime # -> ""
=head2 StrMatch[qr/.../]
Match value with regular expression.
Album
view release on metacpan or search on metacpan
script/album view on Meta::CPAN
# Files marked with * have a normal still image associated.
# Normal still image.
if ( $file =~ /^(.{4})(\d{4})\.($picpat)$/i ) {
my ($type, $seq, $ext) = ($1, $2, $3);
my $fd = $el->DateTime || "";
if ( $fd =~ /(\d\d\d\d):(\d\d):(\d\d) (\d\d):(\d\d):(\d\d)/ ) {
my $time = timelocal($6,$5,$4,$3,$2-1,$1);
my $new = "$1$2$3$4$5$6$seq";
my $ii = cache_entry("$new.$ext");
if ( $ii && !$ii->orig_name ) {
script/album view on Meta::CPAN
my $app = sub {
$ret .= "<tr><td>".htmln($_[0])."</td>".
"<td>".htmln($_[1])."</td></tr>\n";
};
$app->("Date", $v) if $v = $el->DateTime;
my $t = $el->ExposureTime || 0;
if ( $t && $t <= 0.5 ) {
$t = "1/".int(0.5 + 1/$t)."s";
}
$app->("Exposure",
script/album view on Meta::CPAN
dest_name orig_name assoc_name
timestamp file_size medium_size
tag description annotation
rotation mirror);
@exif_fields = qw(DateTime ExifImageLength ExifImageWidth
ExposureMode ExposureProgram ExposureTime
FNumber Flash FocalLength ISOSpeedRatings
ImageDescription Make Model
MeteringMode SceneCaptureType Orientation
height width file_ext);
Algorithm-MasterMind
view release on metacpan or search on metacpan
app/run_experiment.pl view on Meta::CPAN
use lib qw(../lib ../../Algorithm-Evolutionary/lib);
use YAML qw(LoadFile);
use IO::YAML;
use DateTime;
use Algorithm::MasterMind qw( check_combination );
my $config_file = shift || die "Usage: $0 <configfile.yaml>\n";
app/run_experiment.pl view on Meta::CPAN
my $conf = LoadFile($config_file) || die "Can't open $config_file: $@\n";
my $method = $conf->{'Method'};
eval "require Algorithm::MasterMind::$method" || die "Can't load $method: $@\n";
my $io = IO::YAML->new($conf->{'ID'}."-$method-".DateTime->now().".yaml", ">");
my $method_options = $conf->{'Method_options'};
for my $i (1..$conf->{'tests'}) {
my $solver;
Alien-CodePress
view release on metacpan or search on metacpan
cp/codepress/languages/asp.js view on Meta::CPAN
{ input : /\b(AppendToLog|Application|Array|Asc|Atn|Attributes|BeginTrans|BinaryRead|BinaryWrite|BOF|Bookmark|Boolean|Buffer|Byte)\b/gi, output : '<u>$1</u>' },
{ input : /\b(CacheControl|CacheSize|Cancel|CancelBatch|CancelUpdate|CBool|CByte|CCur|CDate|CDbl|Charset|Chr|CInt|Clear)\b/gi, output : '<u>$1</u>' },
{ input : /\b(ClientCertificate|CLng|Clone|Close|CodePage|CommandText|CommandType|CommandTimeout|CommitTrans|CompareBookmarks|ConnectionString|ConnectionTimeout)\b/gi, output : '<u>$1</u>' },
{ input : /\b(Contents|ContentType|Cookies|Cos|CreateObject|CreateParameter|CSng|CStr|CursorLocation|CursorType|DataMember|DataSource|Date|DateAdd|DateDiff)\b/gi, output : '<u>$1</u>' },
{ input : /\b(DatePart|DateSerial|DateValue|Day|DefaultDatabase|DefinedSize|Delete|Description|Double|EditMode|Eof|EOF|err|Error)\b/gi, output : '<u>$1</u>' },
{ input : /\b(Exp|Expires|ExpiresAbsolute|Filter|Find|Fix|Flush|Form|FormatCurrency|FormatDateTime|FormatNumber|FormatPercent)\b/gi, output : '<u>$1</u>' },
{ input : /\b(GetChunk|GetLastError|GetRows|GetString|Global|HelpContext|HelpFile|Hex|Hour|HTMLEncode|IgnoreCase|Index|InStr|InStrRev)\b/gi, output : '<u>$1</u>' },
{ input : /\b(Int|Integer|IsArray|IsClientConnected|IsDate|IsolationLevel|Join|LBound|LCase|LCID|Left|Len|Lock|LockType|Log|Long|LTrim)\b/gi, output : '<u>$1</u>' },
{ input : /\b(MapPath|MarshalOptions|MaxRecords|Mid|Minute|Mode|Month|MonthName|Move|MoveFirst|MoveLast|MoveNext|MovePrevious|Name|NextRecordset)\b/gi, output : '<u>$1</u>' },
{ input : /\b(Now|Number|NumericScale|ObjectContext|Oct|Open|OpenSchema|OriginalValue|PageCount|PageSize|Pattern|PICS|Precision|Prepared|Property)\b/gi, output : '<u>$1</u>' },
{ input : /\b(Provider|QueryString|RecordCount|Redirect|RegExp|Remove|RemoveAll|Replace|Requery|Request|Response|Resync|Right|Rnd)\b/gi, output : '<u>$1</u>' },
Alien-FreeImage
view release on metacpan or search on metacpan
src/Source/FreeImage/PluginJXR.cpp view on Meta::CPAN
// convert metadata to FITAG and store into the EXIF_MAIN metadata model
ReadPropVariant(WMP_tagImageDescription, pDescMetadata->pvarImageDescription, dib);
ReadPropVariant(WMP_tagCameraMake, pDescMetadata->pvarCameraMake, dib);
ReadPropVariant(WMP_tagCameraModel, pDescMetadata->pvarCameraModel, dib);
ReadPropVariant(WMP_tagSoftware, pDescMetadata->pvarSoftware, dib);
ReadPropVariant(WMP_tagDateTime, pDescMetadata->pvarDateTime, dib);
ReadPropVariant(WMP_tagArtist, pDescMetadata->pvarArtist, dib);
ReadPropVariant(WMP_tagCopyright, pDescMetadata->pvarCopyright, dib);
ReadPropVariant(WMP_tagRatingStars, pDescMetadata->pvarRatingStars, dib);
ReadPropVariant(WMP_tagRatingValue, pDescMetadata->pvarRatingValue, dib);
ReadPropVariant(WMP_tagCaption, pDescMetadata->pvarCaption, dib);
src/Source/FreeImage/PluginJXR.cpp view on Meta::CPAN
// fill the DESCRIPTIVEMETADATA structure (use pointers to arrays when needed)
WritePropVariant(dib, WMP_tagImageDescription, DescMetadata.pvarImageDescription);
WritePropVariant(dib, WMP_tagCameraMake, DescMetadata.pvarCameraMake);
WritePropVariant(dib, WMP_tagCameraModel, DescMetadata.pvarCameraModel);
WritePropVariant(dib, WMP_tagSoftware, DescMetadata.pvarSoftware);
WritePropVariant(dib, WMP_tagDateTime, DescMetadata.pvarDateTime);
WritePropVariant(dib, WMP_tagArtist, DescMetadata.pvarArtist);
WritePropVariant(dib, WMP_tagCopyright, DescMetadata.pvarCopyright);
WritePropVariant(dib, WMP_tagRatingStars, DescMetadata.pvarRatingStars);
WritePropVariant(dib, WMP_tagRatingValue, DescMetadata.pvarRatingValue);
WritePropVariant(dib, WMP_tagCaption, DescMetadata.pvarCaption);
Alien-ROOT
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/API.pod view on Meta::CPAN
...other stuff here...
auto_features => {
pg_support => {
description => "Interface with Postgres databases",
requires => { 'DBD::Pg' => 23.3,
'DateTime::Format::Pg' => 0 },
},
mysql_support => {
description => "Interface with MySQL databases",
requires => { 'DBD::mysql' => 17.9,
'DateTime::Format::MySQL' => 0 },
},
}
);
For each feature named, the required prerequisites will be checked, and
Alien-Selenium
view release on metacpan or search on metacpan
inc/Locale/Maketext/Simple.pm view on Meta::CPAN
#line 1 "inc/Locale/Maketext/Simple.pm - /opt/lib/perl5/site_perl/5.8.3/Locale/Maketext/Simple.pm"
# $File: //member/autrijus/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm $ $Author: autrijus $
# $Revision: #17 $ $Change: 9922 $ $DateTime: 2004/02/06 11:13:31 $
package Locale::Maketext::Simple;
$Locale::Maketext::Simple::VERSION = '0.11';
use strict;
Alien-SmokeQt
view release on metacpan or search on metacpan
smoke/qt/qt3support/smokeconfig.xml view on Meta::CPAN
<class>Q3ComboTableItem</class>
<class>Q3DataBrowser</class>
<class>Q3DataTable</class>
<class>Q3DataView</class>
<class>Q3DateEdit</class>
<class>Q3DateTimeEdit</class>
<class>Q3DateTimeEditBase</class>
<class>Q3DeepCopy</class>
<class>Q3Dict</class>
<class>Q3DictIterator</class>
<class>Q3Dns</class>
<class>Q3DockArea</class>
Alien-SwaggerUI
view release on metacpan or search on metacpan
share/swagger-ui-bundle.js view on Meta::CPAN
!function(e,t){"object"==typeof exports&&"object"==typeof module?module.exports=t(function(){try{return require("esprima")}catch(e){}}()):"function"==typeof define&&define.amd?define(["esprima"],t):"object"==typeof exports?exports.SwaggerUIBundle=t(f...
/*
object-assign
(c) Sindre Sorhus
@license MIT
*/var r=Object.getOwnPropertySymbols,o=Object.prototype.hasOwnProperty,i=Object.prototype.propertyIsEnumerable;function a(e){if(null==e)throw new TypeError("Object.assign cannot be called with null or undefined");return Object(e)}e.exports=function()...
Alien-Taco
view release on metacpan or search on metacpan
lib/Alien/Taco.pm view on Meta::CPAN
=item constructor('ClassName')
Return a subroutine reference to call the constructor for the
specified class, with plain arguments. For example, to
allow multiple L<DateTime> objects to be constructed easily,
a constructor can be used:
my $datetime = $taco->constructor('DateTime');
my $afd = $datetime->(year => 2000, month => 4, day => 1);
This is equivalent to calling the L</construct_object>
method:
my $afd = $taco->construct_object('DateTime',
kwargs => {year => 2000, month => 4, day => 1});
=cut
sub constructor {
Alien-TinyCC
view release on metacpan or search on metacpan
src/win32/include/winapi/winbase.h view on Meta::CPAN
} PROCESS_INFORMATION,*PPROCESS_INFORMATION,*LPPROCESS_INFORMATION;
#ifndef _FILETIME_
#define _FILETIME_
typedef struct _FILETIME {
DWORD dwLowDateTime;
DWORD dwHighDateTime;
} FILETIME,*PFILETIME,*LPFILETIME;
#endif
typedef struct _SYSTEMTIME {
WORD wYear;
src/win32/include/winapi/winbase.h view on Meta::CPAN
WINBASEAPI WINBOOL WINAPI SystemTimeToFileTime(CONST SYSTEMTIME *lpSystemTime,LPFILETIME lpFileTime);
WINBASEAPI WINBOOL WINAPI FileTimeToLocalFileTime(CONST FILETIME *lpFileTime,LPFILETIME lpLocalFileTime);
WINBASEAPI WINBOOL WINAPI LocalFileTimeToFileTime(CONST FILETIME *lpLocalFileTime,LPFILETIME lpFileTime);
WINBASEAPI WINBOOL WINAPI FileTimeToSystemTime(CONST FILETIME *lpFileTime,LPSYSTEMTIME lpSystemTime);
WINBASEAPI LONG WINAPI CompareFileTime(CONST FILETIME *lpFileTime1,CONST FILETIME *lpFileTime2);
WINBASEAPI WINBOOL WINAPI FileTimeToDosDateTime(CONST FILETIME *lpFileTime,LPWORD lpFatDate,LPWORD lpFatTime);
WINBASEAPI WINBOOL WINAPI DosDateTimeToFileTime(WORD wFatDate,WORD wFatTime,LPFILETIME lpFileTime);
WINBASEAPI DWORD WINAPI GetTickCount(VOID);
WINBASEAPI WINBOOL WINAPI SetSystemTimeAdjustment(DWORD dwTimeAdjustment,WINBOOL bTimeAdjustmentDisabled);
WINBASEAPI WINBOOL WINAPI GetSystemTimeAdjustment(PDWORD lpTimeAdjustment,PDWORD lpTimeIncrement,PBOOL lpTimeAdjustmentDisabled);
WINBASEAPI DWORD WINAPI FormatMessageA(DWORD dwFlags,LPCVOID lpSource,DWORD dwMessageId,DWORD dwLanguageId,LPSTR lpBuffer,DWORD nSize,va_list *Arguments);
WINBASEAPI DWORD WINAPI FormatMessageW(DWORD dwFlags,LPCVOID lpSource,DWORD dwMessageId,DWORD dwLanguageId,LPWSTR lpBuffer,DWORD nSize,va_list *Arguments);
Alien-TinyCCx
view release on metacpan or search on metacpan
src/win32/include/winapi/winbase.h view on Meta::CPAN
} PROCESS_INFORMATION,*PPROCESS_INFORMATION,*LPPROCESS_INFORMATION;
#ifndef _FILETIME_
#define _FILETIME_
typedef struct _FILETIME {
DWORD dwLowDateTime;
DWORD dwHighDateTime;
} FILETIME,*PFILETIME,*LPFILETIME;
#endif
typedef struct _SYSTEMTIME {
WORD wYear;
src/win32/include/winapi/winbase.h view on Meta::CPAN
WINBASEAPI WINBOOL WINAPI SystemTimeToFileTime(CONST SYSTEMTIME *lpSystemTime,LPFILETIME lpFileTime);
WINBASEAPI WINBOOL WINAPI FileTimeToLocalFileTime(CONST FILETIME *lpFileTime,LPFILETIME lpLocalFileTime);
WINBASEAPI WINBOOL WINAPI LocalFileTimeToFileTime(CONST FILETIME *lpLocalFileTime,LPFILETIME lpFileTime);
WINBASEAPI WINBOOL WINAPI FileTimeToSystemTime(CONST FILETIME *lpFileTime,LPSYSTEMTIME lpSystemTime);
WINBASEAPI LONG WINAPI CompareFileTime(CONST FILETIME *lpFileTime1,CONST FILETIME *lpFileTime2);
WINBASEAPI WINBOOL WINAPI FileTimeToDosDateTime(CONST FILETIME *lpFileTime,LPWORD lpFatDate,LPWORD lpFatTime);
WINBASEAPI WINBOOL WINAPI DosDateTimeToFileTime(WORD wFatDate,WORD wFatTime,LPFILETIME lpFileTime);
WINBASEAPI DWORD WINAPI GetTickCount(VOID);
WINBASEAPI WINBOOL WINAPI SetSystemTimeAdjustment(DWORD dwTimeAdjustment,WINBOOL bTimeAdjustmentDisabled);
WINBASEAPI WINBOOL WINAPI GetSystemTimeAdjustment(PDWORD lpTimeAdjustment,PDWORD lpTimeIncrement,PBOOL lpTimeAdjustmentDisabled);
WINBASEAPI DWORD WINAPI FormatMessageA(DWORD dwFlags,LPCVOID lpSource,DWORD dwMessageId,DWORD dwLanguageId,LPSTR lpBuffer,DWORD nSize,va_list *Arguments);
WINBASEAPI DWORD WINAPI FormatMessageW(DWORD dwFlags,LPCVOID lpSource,DWORD dwMessageId,DWORD dwLanguageId,LPWSTR lpBuffer,DWORD nSize,va_list *Arguments);
Alien-Web-ExtJS-V3
view release on metacpan or search on metacpan
share/docs/output/Date.js view on Meta::CPAN
If you are unsure which license is appropriate for your use, please contact the sales department
at http://www.sencha.com/contact.
Build date: 2013-04-03 15:07:25
*/
Ext.data.JsonP.Date({"alternateClassNames":[],"aliases":{},"enum":null,"parentMixins":[],"tagname":"class","subclasses":[],"extends":null,"uses":[],"html":"<div><pre class=\"hierarchy\"><h4>Files</h4><div class='dependency'><a href='source/Date.html#...
Alien-cares
view release on metacpan or search on metacpan
libcares/test/gmock-1.8.0/gmock-gtest-all.cc view on Meta::CPAN
ULARGE_INTEGER now_int64;
// TODO(kenton@google.com): Shouldn't this just use
// GetSystemTimeAsFileTime()?
GetSystemTime(&now_systime);
if (SystemTimeToFileTime(&now_systime, &now_filetime)) {
now_int64.LowPart = now_filetime.dwLowDateTime;
now_int64.HighPart = now_filetime.dwHighDateTime;
now_int64.QuadPart = (now_int64.QuadPart / kTenthMicrosInMilliSecond) -
kJavaEpochToWinFileTimeDelta;
return now_int64.QuadPart;
}
return 0;
Alien-uv
view release on metacpan or search on metacpan
libuv/src/win/fs.c view on Meta::CPAN
#define TIME_T_TO_FILETIME(time, filetime_ptr) \
do { \
uint64_t bigtime = ((uint64_t) ((time) * (uint64_t) 10 * MILLIONu)) + \
(uint64_t) 116444736 * BILLIONu; \
(filetime_ptr)->dwLowDateTime = bigtime & 0xFFFFFFFF; \
(filetime_ptr)->dwHighDateTime = bigtime >> 32; \
} while(0)
#define IS_SLASH(c) ((c) == L'\\' || (c) == L'/')
#define IS_LETTER(c) (((c) >= L'a' && (c) <= L'z') || \
((c) >= L'A' && (c) <= L'Z'))
Aliyun
view release on metacpan or search on metacpan
lib/AuthV2.pm view on Meta::CPAN
package Aliyun::AuthV2;
use Crypt::Digest::MD5 qw(md5_hex);
use URI::Escape;
use Data::Dumper qw/Dumper/;
use DateTime;
use DateTime::Format::Strptime qw();
use Hash::Merge;
use version;
our $VERSION = 0.2;
#阿里云APIç¾å
lib/AuthV2.pm view on Meta::CPAN
sub _get_public_params {
my $public_params = {
'app_key' => $_[0]->{'app_key'},
'sign_method' => 'md5',
'timestamp' =>
DateTime::Format::Strptime->new(pattern => '%Y-%m-%d %H:%M:%S')->format_datetime(DateTime->now(time_zone =>
'local')),
'format' => 'json',
'v' => '2.0',
};
foreach ('set_target_app_key', 'set_session', 'set_partner_id') {
Alt-Data-Frame-ButMore
view release on metacpan or search on metacpan
0.0060 2021-11-22
- Fix some compatibility issue with recent versions of PDL.
0.0058 2021-06-30
- Monkey-patch for a PDL vs PDL::DateTime compatibility issue.
https://github.com/kmx/pdl-datetime/issues/3
0.0056 2021-04-17
- Fix a call to List::AllUtils::zip(). See also
https://github.com/houseabsolute/List-AllUtils/issues/12
Alt-Date-Extract-SHARYANTO
view release on metacpan or search on metacpan
lib/Date/Extract.pm view on Meta::CPAN
package Date::Extract;
use strict;
use warnings;
use DateTime::Format::Natural;
use List::Util 'reduce';
use parent 'Class::Data::Inheritable';
our $VERSION = '0.05.01'; # VERSION
our $DATE = '2014-06-09'; # DATE
lib/Date/Extract.pm view on Meta::CPAN
}
sub new {
my $class = shift;
my %args = (
format => 'DateTime',
returns => 'first',
prefers => 'nearest',
time_zone => 'floating',
@_,
);
if ($args{format} ne 'DateTime'
&& $args{format} ne 'verbatim'
&& $args{format} ne 'epoch'
&& $args{format} ne 'combined') {
_croak "Invalid `format` passed to constructor: expected `DateTime', `verbatim', `epoch', `combined'.";
}
if ($args{returns} ne 'first'
&& $args{returns} ne 'last'
&& $args{returns} ne 'earliest'
lib/Date/Extract.pm view on Meta::CPAN
sub _build_handlers {
my $self = shift;
$self->handlers({
all_cron => sub {
sort { DateTime->compare_ignore_floating($a, $b) } @_
},
all => sub { @_ },
earliest => sub { reduce { $a < $b ? $a : $b } @_ },
latest => sub { reduce { $a > $b ? $a : $b } @_ },
lib/Date/Extract.pm view on Meta::CPAN
my %dtfn_args;
$dtfn_args{prefer_future} = 1
if $args{prefers} && $args{prefers} eq 'future';
$dtfn_args{time_zone} = $args{time_zone};
my $parser = DateTime::Format::Natural->new(%dtfn_args);
for (@combined) {
my $dt = $parser->parse_datetime($_->{verbatim});
if ($parser->success) {
$dt->set_time_zone($args{time_zone});
$_->{DateTime} = $dt;
}
}
if ($fmt eq 'epoch') {
return map { $_->{DateTime}->epoch } @combined;
} elsif ($fmt eq 'combined') {
return @combined;
} else {
return map {$_->{DateTime}} @combined;
}
}
1;
lib/Date/Extract.pm view on Meta::CPAN
Date::Extract - extract probable dates from strings
=head1 MOTIVATION
There are already a few modules for getting a date out of a string.
L<DateTime::Format::Natural> should be your first choice. There's also
L<Time::ParseDate> which fits many formats. Finally, you can coerce
L<Date::Manip> to do your bidding.
But I needed something that will take an arbitrary block of text, search it for
something that looks like a date string, and extract it. This module fills this
niche. By design it will produce few false positives. This means it will not
catch nearly everything that looks like a date string. So if you have the string
"do homework for class 2019" it won't return a L<DateTime> object with the year
set to 2019. This is what your users would probably expect.
=head1 METHODS
=head2 new PARAMHASH => C<Date::Extract>
lib/Date/Extract.pm view on Meta::CPAN
=over 4
=item format
Choose what format the extracted date(s) will be. The default is "DateTime",
which will return L<DateTime> object(s). Other option include "verbatim" (return
the original text), "epoch" (return Unix timestamp), or "combined" (return
hashref containing these keys "verbatim", "DateTime", "pos" [position of date
string in the text]).
=item time_zone
Only relevant when C,format> is set to "DateTime".
Forces a particular time zone to be set (this actually matters, as "tomorrow"
on Monday at 11 PM means something different than "tomorrow" on Tuesday at 1
AM).
By default it will use the "floating" time zone. See the documentation for
L<DateTime>.
This controls both the input time zone and output time zone.
=item prefers
lib/Date/Extract.pm view on Meta::CPAN
=back
=head2 extract text, ARGS => dates
Takes an arbitrary amount of text and extracts one or more dates from it. The
return value will be zero or more dates, which by default are L<DateTime>
objects (but can be customized with the C<format> argument). If called in scalar
context, only one will be returned, even if the C<returns> argument specifies
multiple possible return values.
See the documentation of C<new> for the configuration of this method. Any
lib/Date/Extract.pm view on Meta::CPAN
This module is I<intentionally> very simple. Surprises are I<not> welcome
here.
=head1 SEE ALSO
L<DateTime::Format::Natural>, L<Time::ParseDate>, L<Date::Manip>
=head1 AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
Amazon-DynamoDB-Simple
view release on metacpan or search on metacpan
lib/Amazon/DynamoDB/Simple.pm view on Meta::CPAN
sub put {
my ($self, %item) = @_;
# timestamp this transaction
$item{last_updated} = DateTime->now . ""; # stringify datetime
$item{deleted} ||= 0;
%item = $self->deflate(%item);
my $dynamodbs = $self->dynamodbs();
my $success = 0;
Amazon-DynamoDB
view release on metacpan or search on metacpan
t/#02-tables-gsi.t# view on Meta::CPAN
$description = $description->get();
# Creation times always change.
delete $description->{CreationDateTime};
is_deeply($description,
{
'TableSizeBytes' => 0,
'ItemCount' => 0,
Amazon-MWS
view release on metacpan or search on metacpan
examples/request-FBA-fulfillment-report.pl view on Meta::CPAN
# Initiate FBA fulfillment report generation
use strict;
use Amazon::MWS::Client;
use DateTime;
my $mws = Amazon::MWS::Client->new(access_key_id=>"XXX",
secret_key => "YYY",
merchant_id => "ZZZ",
marketplace_id => "VVV");
my $req = $mws->RequestReport(ReportType => '_GET_AMAZON_FULFILLED_SHIPMENTS_DATA_',
StartDate => DateTime->now->add(weeks => -1),
EndDate => DateTime->now);
if (my $req_id = $req->{ReportRequestInfo}->[0]->{ReportRequestId}) {
open my $req, "> request.${req_id}";
close $req;
}
Amethyst
view release on metacpan or search on metacpan
factpacks/Linux.fact view on Meta::CPAN
mvComicsMaker => <reply> $who, editor for combining bitmap and vector graphics. URL: http://members.xoom.com/miishland/9mvCM.html
MVPoly => <reply> $who, A multi-variable polynomial algebra library and command interpreter. URL: http://gamma.cbos.org/MVPoly
MVQFPlayer => <reply> $who, VQF Player for Linux. URL: http://www.csn.ul.ie/~mel/projects/linux/mvqfplayer/
mwhcounter => <reply> $who, Simple web-counter written in perl. URL: http://www.ap.univie.ac.at/users/havlik/Downloads/index.shtml
mxCrypto => <reply> $who, Cryptographic module for Python. URL: http://www.cs.uni-duesseldorf.de/~lemburg/mxCrypto.html
mxDateTime => <reply> $who, Date and Time types for Python. URL: http://starship.skyport.net/~lemburg/mxDateTime.html
mxODBC => <reply> $who, Python DatabaseAPI compliant interface to ODBC 2.0. URL: http://starship.skyport.net/~lemburg/mxODBC.html
MyAddressPHP => <reply> $who, Web-accessable MySQL AddressBook in PHP. URL: http://rob.current.nu/MyAddressPHP/
MyAdmin => <reply> $who, Fully administer a mysql database from the web. URL: http://myadmin.cheapnet.net
myGDE => <reply> $who, Yet another graphical GTK interface to a mySQL server. URL: http://ringil.stampede.org/mygde/
MyGuestbook => <reply> $who, A simple Guestbook using PHP3 and MySQL, several languages supported. URL: http://mygb.php-homepage.de/
Antispam-Toolkit
view release on metacpan or search on metacpan
lib/Antispam/Toolkit/Role/BerkeleyDB.pm view on Meta::CPAN
use autodie;
use namespace::autoclean;
use Antispam::Toolkit::Types qw( Bool File NonEmptyStr DataFile );
use BerkeleyDB;
use DateTime;
BEGIN {
die 'The ' . __PACKAGE__ . ' role requires a BerkeleyDB linked against Berkeley DB 4.4+'
unless $BerkeleyDB::db_version >= 4.4;
}
lib/Antispam/Toolkit/Role/BerkeleyDB.pm view on Meta::CPAN
my $db_file = $self->database();
return
$db_file->basename() . ' - '
. DateTime->from_epoch( epoch => $db_file->stat()->mtime() )
->iso8601();
}
sub build {
my $class = shift;
AnyEvent-Cron
view release on metacpan or search on metacpan
eg/simple-cron.pl view on Meta::CPAN
my $cron = AnyEvent::Cron->new( verbose => 1 );
# 00:00 (hour:minute)
$cron->add("00:00" => sub { warn "zero"; });
$cron->add( DateTime->now => sub { warn "datetime now" } );
$cron->add({
type => 'interval',
second => 0 ,
triggered => 0,
callback => sub {
warn "SECOND INTERVAL TRIGGERD";
},
},{
type => 'interval',
hour => DateTime->now->hour ,
minute => DateTime->now->minute ,
callback => sub {
warn "HOUR+MINUTE INTERVAL TRIGGERD";
},
},{
type => 'interval',
hour => DateTime->now->hour ,
callback => sub {
warn "HOUR INTERVAL TRIGGERD";
},
},{
type => 'interval',
minute => DateTime->now->minute ,
callback => sub {
warn "MINUTE INTERVAL TRIGGERD";
},
},{
type => 'datetime' ,
callback => sub { warn "DATETIME TRIGGED" },
datetime => (sub {
# my $dt = DateTime->now->add_duration( DateTime::Duration->new( minutes => 0 ) );
my $dt = DateTime->now;
# $dt->set_second(0);
# $dt->set_nanosecond(0);
warn "Next trigger: ", $dt;
return $dt; })->()
})->run();
( run in 0.654 second using v1.01-cache-2.11-cpan-05444aca049 )