tommybutler

package Bundle::Snapshot_2024_07_11_00;

$VERSION = '0.01';

1;

__END__

=head1 NAME

tommybutler

my $start = scalar localtime;
my @records = ( 'some', 'dbi', 'fetchrow', 'hashrefs' );

$promises->{first}->then
(
   sub
   {
      warn 'DONE WITH FIRST PROMISE';
      warn 'START: ' . $start;
      warn 'FINISH: ' . scalar localtime;

tommybutler

return Mojo::Promise->map                   
(                                           
   { concurrency => 10 },                   
   sub
   {
      my $record  = $_;
      my $promise = Mojo::Promise->new(); 
      
      Mojo::IOLoop->subprocess->run
      (

tommybutler

 # inside my mojo route...
 
 my $result = $library->run_object_method_that_runs_mojo_promise_map();          
                                                                      
 if ( Scalar::Util::blessed( $result ) && $result->isa( 'Mojo::Promise' ) )
 {                                                                    
    $c->render_later();
    
    my $start = scalar localtime;                                     
                                                                      

tommybutler

#!perl
use strict;
use warnings;
use 5.020;

my $cap = 10; 

my @ints =
qw(
   6.1

tommybutler

my $pdf  = 'my-html-template-for-conversion-to-pdf'; # needs to be a .html.ep template
my $mail = 'my-template-for-the-html-email'; # needs to be a .mail.ep template

$pdf = $c->render_to_string( $pdf )->to_string();
$pdf = PDF::WebKit->new( \$pdf, %pdf_opt )->to_pdf(); # see PDF::WebKit documentation for details

$c->mail
(
  mail =>
  {

tommybutler

find . -type f | perl -nE '$_ =~ s/.*\///g ; $_ =~ m/.+\..+$/ && $_ =~ s/.*\./\./ && say $_' | sort | uniq

tommybutler

#!perl

use strict;
use warnings;

use Data::Dumper;

my $last_access = {};
my $tot = 0;
my $cnt = 0;

tommybutler

use strict;
use warnings;

package My::Class::Proxy; # Drop-in replacement for 'Some Class'

# Proxies all public method calls to Some::Class in order to provide smart
# caching and memoization, e.g.- avoiding expensive DB queries when not required

use 5.020;
use Moose;

tommybutler

Clonezilla mode is device-image
ocsroot device is local_dev
Umounting the existing /home/partimag...
Preparing the mount point /home/partimag...
If you want to use USB device as a Clonezilla image repository, please
 * Insert USB device into this machine *now*
 * Wait for about 5 secs 
 * Press Enter key 
so that the OS can detect the USB device and later we can mount it as /home/partimag.
Press "Enter" to continue......