view release on metacpan or search on metacpan
script/sitelen-mute view on Meta::CPAN
# gather dates and megapixel sizes of image files
my $amp = 0;
my $ostamp = 0;
for my $props (@$aprops) {
# file timestamp
my $idate = $props->{DateTimeOriginal} || $props->{DateTime} || '';
$idate =~ s/^\s+|\s+$//g;
my $t = Time::Piece->strptime($idate, "%Y:%m:%d %H:%M:%S");
if ($t && $t->epoch()) {
$props->{date} = $t->strftime("%Y-%m-%d %H:%M");
$props->{stamp} = $ostamp = $t->epoch();
view release on metacpan or search on metacpan
sub show_exifinfo {
my $w = shift or return;
$w->delete ("exifinfo");
$Option{showexifinfo} or return;
my $ei = shift or return;
my $dto = $ei->{DateTimeOriginal} // "";
my $iso = $ei->{ISO} ? "ISO $ei->{ISO}" : "";
my $spd = $ei->{ShutterSpeed} // $ei->{exposureTime} // "";
my $ape = $ei->{Aperture} // $ei->{FNumber};
$ape = $ape ? "F$ape" : "";
my $fln = $ei->{FocalLengthIn35mmFormat} // $ei->{FocalLength} // "";
view release on metacpan or search on metacpan
script/wordlist view on Meta::CPAN
#state $process_array;
#state $process_hash;
#if (!$process_array) { $process_array = sub { my $a = shift; for my $e (@$a) { my $ref=ref($e);
# if ($ref && $refs{ $e }++) { if (++$ctr_circ <= 1) { $e = Clone::PP::clone($e); redo } else { $e = 'CIRCULAR'; $ref = '' } }
# elsif ($ref eq 'Cpanel::JSON::XS::Boolean') { $e = $e ? 1:0; $ref = '' }
# elsif ($ref eq 'DateTime') { $e = $e->epoch; $ref = ref($e) }
# elsif ($ref eq 'JSON::PP::Boolean') { $e = $e ? 1:0; $ref = '' }
# elsif ($ref eq 'JSON::XS::Boolean') { $e = $e ? 1:0; $ref = '' }
# elsif ($ref eq 'Math::BigInt') { $e = $e->bstr; $ref = ref($e) }
# elsif ($ref eq 'Regexp') { $e = "$e"; $ref = "" }
# elsif ($ref eq 'SCALAR') { $e = ${ $e }; $ref = ref($e) }
script/wordlist view on Meta::CPAN
# elsif ($ref) { $e = $ref; $ref = "" }
#} } }
#if (!$process_hash) { $process_hash = sub { my $h = shift; for my $k (keys %$h) { my $ref=ref($h->{$k});
# if ($ref && $refs{ $h->{$k} }++) { if (++$ctr_circ <= 1) { $h->{$k} = Clone::PP::clone($h->{$k}); redo } else { $h->{$k} = 'CIRCULAR'; $ref = '' } }
# elsif ($ref eq 'Cpanel::JSON::XS::Boolean') { $h->{$k} = $h->{$k} ? 1:0; $ref = '' }
# elsif ($ref eq 'DateTime') { $h->{$k} = $h->{$k}->epoch; $ref = ref($h->{$k}) }
# elsif ($ref eq 'JSON::PP::Boolean') { $h->{$k} = $h->{$k} ? 1:0; $ref = '' }
# elsif ($ref eq 'JSON::XS::Boolean') { $h->{$k} = $h->{$k} ? 1:0; $ref = '' }
# elsif ($ref eq 'Math::BigInt') { $h->{$k} = $h->{$k}->bstr; $ref = ref($h->{$k}) }
# elsif ($ref eq 'Regexp') { $h->{$k} = "$h->{$k}"; $ref = "" }
# elsif ($ref eq 'SCALAR') { $h->{$k} = ${ $h->{$k} }; $ref = ref($h->{$k}) }
script/wordlist view on Meta::CPAN
#} } }
#%refs = (); $ctr_circ=0;
#for ($data) { my $ref=ref($_);
# if ($ref && $refs{ $_ }++) { if (++$ctr_circ <= 1) { $_ = Clone::PP::clone($_); redo } else { $_ = 'CIRCULAR'; $ref = '' } }
# elsif ($ref eq 'Cpanel::JSON::XS::Boolean') { $_ = $_ ? 1:0; $ref = '' }
# elsif ($ref eq 'DateTime') { $_ = $_->epoch; $ref = ref($_) }
# elsif ($ref eq 'JSON::PP::Boolean') { $_ = $_ ? 1:0; $ref = '' }
# elsif ($ref eq 'JSON::XS::Boolean') { $_ = $_ ? 1:0; $ref = '' }
# elsif ($ref eq 'Math::BigInt') { $_ = $_->bstr; $ref = ref($_) }
# elsif ($ref eq 'Regexp') { $_ = "$_"; $ref = "" }
# elsif ($ref eq 'SCALAR') { $_ = ${ $_ }; $ref = ref($_) }
view release on metacpan or search on metacpan
lib/App/wsgetmail/MS365.pm view on Meta::CPAN
$self->_have_messages_to_fetch(0);
return 0;
}
$decoded_response = decode_json( $response->content );
} else {
my $fields = [qw(id subject sender isRead sentDateTime toRecipients parentFolderId categories)];
$decoded_response = $self->_get_message_list($fields, $filter);
}
$messages = $decoded_response->{value};
if ($decoded_response->{'@odata.nextLink'}) {
lib/App/wsgetmail/MS365.pm view on Meta::CPAN
# get oldest first, filter (i.e. unread) if filter provided
my $response = $self->_client->get_request(
[@path_parts],
{
'$count' => 'true', '$orderby' => 'sentDateTime',
( $fields ? ('$select' => join(',',@$fields) ) : ( )),
( $filter ? ('$filter' => $filter ) : ( ))
}
);
view release on metacpan or search on metacpan
bin/zipdetails view on Meta::CPAN
['filename', ZIP_CD_FILENAME_OFFSET,
'Filename', undef, ],
['extractVersion', 7, 'Extract Zip Spec', sub { decimalHex0xUndef($_[0]) . " " . decodeZipVer($_[0]) }, ],
['generalPurposeFlags', 8, 'General Purpose Flag', \&decimalHex0xUndef, ],
['compressedMethod', 10, 'Compression Method', sub { decimalHex0xUndef($_[0]) . " " . getcompressionMethodName($_[0]) }, ],
['lastModDateTime', 12, 'Modification Time', sub { decimalHex0xUndef($_[0]) . " " . LastModTime($_[0]) }, ],
['crc32', 16, 'CRC32', \&decimalHex0xUndef, ],
['compressedSize', 20, 'Compressed Size', \&decimalHex0xUndef, ],
['uncompressedSize', 24, 'Uncompressed Size', \&decimalHex0xUndef, ],
] ;
bin/zipdetails view on Meta::CPAN
$localEntry->offsetStart($locHeaderOffset) ;
$localEntry->compressedSize($compressedSize) ;
$localEntry->uncompressedSize($uncompressedSize) ;
$localEntry->extractVersion($extractVer);
$localEntry->generalPurposeFlags($gpFlag);
$localEntry->lastModDateTime($lastMod);
$localEntry->crc32($crc) ;
$localEntry->zip64ExtraPresent($cdZip64) ;
$localEntry->zip64SizesPresent($zip64Sizes) ;
$localEntry->compressedMethod($compressedMethod) ;
bin/zipdetails view on Meta::CPAN
$cdEntry->zip64ExtraPresent(undef) ; #$cdZip64; ### FIX ME
$cdEntry->zip64SizesPresent(undef) ; # $zip64Sizes; ### FIX ME
$cdEntry->extractVersion($extractVer);
$cdEntry->generalPurposeFlags($gpFlag);
$cdEntry->compressedMethod($compressedMethod) ;
$cdEntry->lastModDateTime($lastMod);
$cdEntry->crc32($crc) ;
$cdEntry->inCentralDir(1) ;
$cdEntry->std_localHeaderOffset($std_localHeaderOffset) ;
$cdEntry->std_compressedSize($std_compressedSize) ;
bin/zipdetails view on Meta::CPAN
my ($c, $s2) = read_Q;
out $c, " Ctime", Ntfs2Unix($c, $s2);
}
sub OpenVMS_DateTime
{
my $ix = shift;
my $tag = shift;
my $size = shift;
bin/zipdetails view on Meta::CPAN
my $entry = shift;
state $openVMS_tags = {
0x04 => [ 'ATR$C_RECATTR', \&OpenVMS_DumpBytes ],
0x03 => [ 'ATR$C_UCHAR', \&OpenVMS_UCHAR ],
0x11 => [ 'ATR$C_CREDATE', \&OpenVMS_DateTime ],
0x12 => [ 'ATR$C_REVDATE', \&OpenVMS_DateTime ],
0x13 => [ 'ATR$C_EXPDATE', \&OpenVMS_DateTime ],
0x14 => [ 'ATR$C_BAKDATE', \&OpenVMS_DateTime ],
0x0D => [ 'ATR$C_ASCDATES', \&OpenVMS_revision ],
0x15 => [ 'ATR$C_UIC', \&OpenVMS_4ByteValue ],
0x16 => [ 'ATR$C_FPRO', \&OpenVMS_DumpBytes ],
0x17 => [ 'ATR$C_RPRO', \&OpenVMS_2ByteValue ],
0x1D => [ 'ATR$C_JOURNAL', \&OpenVMS_DumpBytes ],
bin/zipdetails view on Meta::CPAN
$cdEntry->compressedSize($compressedSize) ;
$cdEntry->uncompressedSize($uncompressedSize) ;
$cdEntry->extractVersion($extractVer);
$cdEntry->generalPurposeFlags($gpFlag);
$cdEntry->filename($filename) ;
$cdEntry->lastModDateTime($lastMod);
$cdEntry->languageEncodingFlag($gpFlag & ZIP_GP_FLAG_LANGUAGE_ENCODING) ;
$cdEntry->diskNumber($diskNumber) ;
$cdEntry->crc32($crc) ;
$cdEntry->zip64ExtraPresent($cdZip64) ;
bin/zipdetails view on Meta::CPAN
'localHeaderOffset' => 0,
'extractVersion' => 0,
'generalPurposeFlags' => 0,
'compressedMethod' => 0,
'lastModDateTime' => 0,
'crc32' => 0,
'compressedSize' => 0,
'uncompressedSize' => 0,
'filename' => '',
'outputFilename' => '',
view release on metacpan or search on metacpan
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"DateTime" : "0.37",
"perl" : "5.008004",
"strict" : "0",
"warnings" : "0"
}
}
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/js/jquery-ui-timepicker-addon-1.js view on Meta::CPAN
(function(n){function t(){this.regional=[],this.regional[""]={currentText:"Now",closeText:"Done",ampm:!1,amNames:["AM","A"],pmNames:["PM","P"],timeFormat:"hh:mm tt",timeSuffix:"",timeOnlyTitle:"Choose Time",timeText:"Time",hourText:"Hour",minuteText:...
view release on metacpan or search on metacpan
lib/App/AquariumHive.pm view on Meta::CPAN
use AnyEvent::SerialPort;
use AnyEvent::HTTP;
use File::ShareDir::ProjectDistDir;
use File::HomeDir;
use JSON::MaybeXS;
use DateTime;
use Config::INI::Reader;
use Config::INI::Writer;
use Carp qw( croak );
use DDP;
use Module::Runtime qw( use_module );
view release on metacpan or search on metacpan
lib/Archive/Har.pm view on Meta::CPAN
}
foreach my $ie_title ( $ie_page->getChildrenByTagName('title') ) {
$page->title( $ie_title->findvalue('text()') );
}
foreach my $ie_started (
$ie_page->getChildrenByTagName('startedDateTime') )
{
$page->started_date_time( $ie_started->findvalue('text()') );
}
my $page_timings = Archive::Har::Page::PageTimings->new();
foreach
lib/Archive/Har.pm view on Meta::CPAN
my $ie_pageref ( $ie_entry->getChildrenByTagName('pageref') )
{
$entry->pageref( $ie_pageref->findvalue('text()') );
}
foreach my $ie_started (
$ie_entry->getChildrenByTagName('startedDateTime') )
{
$entry->started_date_time( $ie_started->findvalue('text()') );
}
foreach
my $ie_timings ( $ie_entry->getChildrenByTagName('timings') )
view release on metacpan or search on metacpan
lib/Archive/RPM/ChangeLogEntry.pm view on Meta::CPAN
package Archive::RPM::ChangeLogEntry;
use Moose;
use MooseX::MarkAsMethods autoclean => 1;
use MooseX::Types::DateTimeX ':all';
use overload '""' => sub { shift->as_string };
use DateTime;
our $VERSION = '0.07';
has text => (is => 'ro', isa => 'Str', required => 1);
has time => (is => 'ro', isa => DateTime, coerce => 1, required => 1);
has name => (is => 'ro', isa => 'Str', required => 1);
sub as_string {
my $self = shift @_;
view release on metacpan or search on metacpan
lib/Archive/SevenZip/Entry.pm view on Meta::CPAN
sub lastModTime {
(my $dt = $_[0]->{Modified}) =~ s/\.\d+$//;
Time::Piece->strptime($dt, '%Y-%m-%d %H:%M:%S')->epoch;
}
sub lastModFileDateTime {
Archive::Zip::Member::_unixToDosTime($_[0]->lastModTime())
}
sub crc32 {
hex( $_[0]->{CRC} );
lib/Archive/SevenZip/Entry.pm view on Meta::CPAN
# Archive::Zip API
#fileName()
# Archive::Zip API
#lastModFileDateTime()
# Archive::Zip API
#lastModTime()
=item C<< ->extractToFileNamed $name >>
view release on metacpan or search on metacpan
unzip-6.0/macos/source/macos.c view on Meta::CPAN
{
/*
ZCONST char Far CompiledWith[] =
"Compiled with %s%s for %s%s%s%s.\n\n"; */
char DateTime[50];
#ifdef __MWERKS__
char CompVer[10];
sprintf(CompVer, "%x", __MWERKS__);
#endif
sprintf(DateTime,"%s %s",__DATE__, __TIME__);
sprintf((char *)slide, LoadFarString(CompiledWith),
#ifdef __MWERKS__
unzip-6.0/macos/source/macos.c view on Meta::CPAN
" PowerPC Processor",
#endif
#ifdef __DATE__
"\n compile time: ", DateTime, ""
#else
"", "", ""
#endif
);
unzip-6.0/macos/source/macos.c view on Meta::CPAN
*/
static void PrintMacExtraInfo(MACINFO *mi)
{
#define MY_FNDRINFO fpb.hFileInfo.ioFlFndrInfo
DateTimeRec MacTime;
static ZCONST char space[] = " ";
static ZCONST char line[] = "------------------------------------"\
"------------------------------";
printf("\n\n%s", line);
view release on metacpan or search on metacpan
lib/Archive/Zip/Crypt.pm view on Meta::CPAN
my $bitFlag;
(
undef, # $self->{'versionNeededToExtract'},
$bitFlag,
undef, # $self->{'compressionMethod'},
undef, # $self->{'lastModFileDateTime'},
undef, # $crc32,
undef, # $compressedSize,
undef, # $uncompressedSize,
$fileNameLength,
$extraFieldLength
view release on metacpan or search on metacpan
lib/Archive/Zip.pm view on Meta::CPAN
Get or set the member's internal filename. Returns the
(possibly new) filename. Names will have backslashes
converted to forward slashes, and will have multiple
consecutive slashes converted to single ones.
=item lastModFileDateTime()
Return the member's last modification date/time stamp in
MS-DOS format.
=item lastModTime()
lib/Archive/Zip.pm view on Meta::CPAN
Return the member's last modification date/time stamp,
converted to unix localtime format.
print "Mod Time: " . scalar( localtime( $member->lastModTime() ) );
=item setLastModFileDateTimeFromUnix()
Set the member's lastModFileDateTime from the given unix
time.
$member->setLastModFileDateTimeFromUnix( time() );
=item internalFileAttributes()
Return the internal file attributes field from the zip
header. This is only set for members read from a zip file.
view release on metacpan or search on metacpan
lib/Array/Extract/Example.pod view on Meta::CPAN
those elements are placed in C<@done>.
open my $done_fh, ">>", $done_filename or die $!;
my @done = extract { /\A\[[^ ]]/ } @todo;
print { $done_fh } map { "$_\n" }
"","Items archived @{[ DateTime->now ]}:","",@done;
=head2 Needs more actions
Of course, if all I wanted to do was remove the actions that had been
completed I probably wouldn't have reached for Tie::File, but for my next
lib/Array/Extract/Example.pod view on Meta::CPAN
use Path::Class;
use Tie::File;
use Array::Extract qw(extract);
use List::MoreUtils qw(uniq last_index);
use DateTime;
########################################################################
my $TODO = file($ENV{HOME}, "Dropbox", "SharedFolder", "TODO.txt");
my $DONE = $TODO->dir->file("DONE.txt");
lib/Array/Extract/Example.pod view on Meta::CPAN
exit unless @done;
# append what has been done to another file
print { $DONE->open(">>") or die $! } map { "$_\n" }
"",
"Items archived @{[ DateTime->now ]}:",
"",
@done;
# work out which projects no longer exist
my %remaining_project = map { $_ => 1 } projects @todo;
view release on metacpan or search on metacpan
#
# coerce 'Num',
# from 'Str',
# via { 0+$_ };
#
# class_type 'DateTimeClass', { class => 'DateTime' };
#
# role_type 'Barks', { role => 'Some::Library::Role::Barks' };
#
# enum 'RGBColors', [qw(red green blue)];
#
view release on metacpan or search on metacpan
- Suppressing tests plans
0.18_17
- Creating a Art::World::Util::Time class based on Time::Moment for time manipulation matters
- Removing the repetitive Faker use from the tests and using the Art::World::Util::Person class
- Replacing Types::XSD DateTime's by Time::Moment for performances reasons
- Transfering the Meta utils doc to the appropriate module
- Missing postderef feature in Art::World::Util and tests
- Fixing documentation syntax
0.18_16
view release on metacpan or search on metacpan
lib/Articulate/Caching/Native.pm view on Meta::CPAN
package Articulate::Caching::Native;
use strict;
use warnings;
use Moo;
use DateTime;
with 'Articulate::Role::Component';
=head1 NAME
Articulate::Caching::Native - cache content in memory
lib/Articulate/Caching/Native.pm view on Meta::CPAN
be stored alongside small ones, or where you have a very large number
of locations you want to cache.
=cut
sub _now { DateTime->now . '' }
=head1 ATTRIBUTES
=cut
view release on metacpan or search on metacpan
lib/AsposeBarCodeCloud/ApiClient.pm view on Meta::CPAN
# If it's a datetime object, format it in ISO8601
# @param string $value the value of the parameter
# @return string the header string
sub to_string {
my ($self, $value) = @_;
if (ref($value) eq "DateTime") { # datetime in ISO8601 format
return $value->datetime();
}
else {
return $value;
}
lib/AsposeBarCodeCloud/ApiClient.pm view on Meta::CPAN
} else {
push @_values, $self->deserialize($_sub_class, $_value);
}
}
return \@_values;
} elsif ($class eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data));
} elsif (grep /^$class$/, ('string', 'int', 'float', 'bool', 'object')) {
return $data;
} else { # model
my $_instance = use_module("AsposeBarCodeCloud::Object::$class")->new;
if (ref $data eq "HASH") {
view release on metacpan or search on metacpan
lib/AsposeCellsCloud/ApiClient.pm view on Meta::CPAN
# If it's a datetime object, format it in ISO8601
# @param string $value the value of the parameter
# @return string the header string
sub to_string {
my ($self, $value) = @_;
if (ref($value) eq "DateTime") { # datetime in ISO8601 format
return $value->datetime();
}
else {
return $value;
}
lib/AsposeCellsCloud/ApiClient.pm view on Meta::CPAN
} else {
push @_values, $self->deserialize($_sub_class, $_value);
}
}
return \@_values;
} elsif ($class eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data));
} elsif (grep /^$class$/, ('string', 'int', 'float', 'bool', 'object')) {
return $data;
} else { # model
my $_instance = use_module("AsposeCellsCloud::Object::$class")->new;
if (ref $data eq "HASH") {