Select Code to Download

use strict;
use warnings;
...
say "Raw upscale is $upscaled_w";
my $rounded = round_even($upscaled_w);
say "Rounded upscale is $rounded";

sub copy_file_local {
    my $srv = $conf->get("proxy_server");
...
    }
    $ssh->disconnect();
}

C:\STRAWB~1\c\bin\gcc.exe -c    -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRIC
+T -DWIN64 -DCONSERVATIVE -DPERL_TEXTMODE_SCRIPTS -DUSE_SITECUSTOMIZE 
+-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DHASATTRIBU
+TE -fno-strict-aliasing -mms-bitfields -O2        -DVERSION=\"0.17\" 
+   -DXS_VERSION=\"0.17\"  "-IC:\Perl64\lib\CORE"   InsertResourceSect
+ion.c
In file included from C:\Perl64\lib\CORE/win32thread.h:4:0,
...
  C:\STRAWB~1\c\bin\dmake.exe -- NOT OK

eellis@FOCUS C:\Users\eellis

eellis@eellis-ws ~ $ perl -v

...
Can't locate JSON.pm in @INC (you may need to install the JSON module)
+ (@INC contains: /home/eellis/perl5/perlbrew/perls/perl-5.20.2/lib/si
+te_perl/5.20.2/x86_64-linux /home/eellis/perl5/perlbrew/perls/perl-5.
+20.2/lib/site_perl/5.20.2 /home/eellis/perl5/perlbrew/perls/perl-5.20
+.2/lib/5.20.2/x86_64-linux /home/eellis/perl5/perlbrew/perls/perl-5.2
+0.2/lib/5.20.2 .) at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
eellis@eellis-ws ~ $

<script type="text/javascript" src="//code.jquery.com/jquery-1.11.1.mi
+n.js"></script>
<script type="text/javascript" src="//maxcdn.bootstrapcdn.com/bootstra
+p/3.2.0/js/bootstrap.min.js"></script>
<script type="text/javascript" src="//cdnjs.cloudflare.com/ajax/libs/h
+ighlight.js/8.2/highlight.min.js"></script>
<script type="text/javascript" src="//buzzword.org.uk/2014/pm/pm2.js">
+</script>

if ($foohash->{$key} > $dbhash->{$key}) {
    # if any of these are greater, go ahead and update
...
    #    "where id = " . $check->[0]->[0]
    #);
}

An update to bytes has occurred!
to 1988574506.81257 from 1988574506.81257
...
to 1161805289.10036 from 1161805289.10036
An update to bytes has occurred!
to 287736468.69037 from 287736468.69037

sub package_on_usual_location($)
{   my $file  = shift;
...
       !@rest             # path is at top-level of distro
    || $subdir eq 'lib';  # inside lib
}

explain select db1.questionnaire_question.content AS 'question content
+', 
db1.questionnaire_quest_choice.content AS 'choice content', 
...
INNER JOIN db2.courses ON (db2.courses.id=db2.course_sections.course_i
+d) 
where db2.courses.id=167 AND db1.questionnaire_question.deleted="n" 
group by db1.questionnaire_quest_choice.id;

use strict;
use warnings;
...
  $second_inserted->set_atts({type => 'deep'});
}
$twig->print;

<foo>
  <bar bark="woof"/>
...
  <qux bark="woof"/>
  <quxsecond_tag type="deep"/>
</foo>

<foo>
  <quxsecond_tag type="deep">
...
    </qux>
  </quxsecond_tag>
</foo>

sudo apt-get install python-software-properties
sudo add-apt-repository ppa:ondrej/redmine

$VAR1 = {
          'source' => '[path def]',
...
                        ],
          'title' => 'moodlite/copy1'
        };

#!/bin/bash
# to add repos for redmine, do the following:
...
cd /path/to/repo.git
/usr/bin/git fetch origin '+refs/heads/*:refs/heads/*' -v
cd ~

courses
- id
...
accreditors
- id
- name

use strict;
use warnings;
...
$end_time = time();

print "regex = " . ($end_time - $start_time) . " seconds";

CREATE PROCEDURE `sp_DBR`(email_to varchar(50), global_filter varchar(
+50))
BEGIN
...

END
$$

use strict;
my $VAR1 = {
...
}

print "Smallest value for $stat is in class $smallest->{'class'}, with
+ value $smallest->{'val'}";

use strict;
use warnings;
...
if ($mech->success() == 1) {
  print "yay";
} else { die "Can't fetch $url"; }