hexfusion

#!/bin/bash

PERL_STABLE="5.16.1"

echo '%< --- installing perlbrew ---'
echo
curl -kL http://install.perlbrew.pl | bash
source ~/perl5/perlbrew/etc/bashrc

perlbrew install --notest perl-${PERL_STABLE}

hexfusion

!/usr/local/bin/perl

use strict;
use warnings;

 use DBI;
 use Crypt::IDEA

my $key= 'mykey';
my $host = "remote.mydomain.com";

hexfusion

diff --git a/lib/Template/Flute.pm b/lib/Template/Flute.pm
index 816dc90..b52aa5f 100644
--- a/lib/Template/Flute.pm
+++ b/lib/Template/Flute.pm
@@ -3,6 +3,8 @@ package Template::Flute;
 use strict;
 use warnings;
 
+use Scalar::Util qw/blessed/;
+

hexfusion

    # create nav iterators
    my $nav = schema->resultset('Navigation')->search({
       -or => [
           type => 'nav',
           type => 'menu'
            ],

      });

    while (my $record = $nav->next) {

hexfusion

package # Hide from PAUSE
   DBIx::Class::SQLMaker::SQLStatement;

use parent 'DBIx::Class::SQLMaker';

# SQL::Statement does not understand
# INSERT INTO $table DEFAULT VALUES
# Adjust SQL here instead
sub insert {  # basically just a copy of the MySQL version...
   my $self = shift;

hexfusion

UPDATE variants_staging as VS
JOIN variants AS V
ON VS.manf_sku = V.manf_sku
set VS.image = V.image, VS.style = 'Image', VS.code = V.code, VS.sku = V.sku
WHERE V.manf_sku = VS.manf_sku

hexfusion

use utf8;
package Interchange6::Schema::Result::Review;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Interchange6::Schema::Result::Review

hexfusion

use utf8;
package Interchange6::Schema::Result::Country;
 
# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE
 
=head1 NAME
 
Interchange6::Schema::Result::Country
 

hexfusion

<br />
<br />
<div id="sig" style="min-width: 960px; min-height: 82px; line-height: 18px; margin: 6px 0; padding: 8px; border-top: 1px #999999 dotted; border-bottom: 1px #999999 dotted; font-family: 'Lucida Grande', Verdana, Arial, Sans-Serif; font-size: 12px; color: #999999; " >
<a href="http://icdevgroup.org" title="icdevgroup.org"><img src="http://www.westbranchangler.com/assetstore/site/images/ic6.png" alt="Interchange6" style="float: left; padding: 2px 6px 0 0; border: none;"></a>
<div style="padding: 6px 0 0 0">
<span style="font-size:14px"><strong style="color: #333333">Sam Batschelet</strong>, 'hexfusion'</span><br />
<strong><a href="http://icdevgroup.org.com" title="icdevgroup.org" style="color: #666666; text-decoration: none; border-bottom: 1px #cccccc dotted;">Team IC6</a></strong><br /> 
sbatschelet@mac.com
<br />
<a href="https://github.com/interchange"><img src="http://www.westbranchangler.com/assetstore/site/images/github_16.png" alt="Github" style="float: left; margin: 2px 4px 0 0; border: no

hexfusion

#! /usr/bin/env perl

use strict;
use warnings;

use Locale::Country;
use Interchange6::Schema;

my $dsn = shift;
my $schema = Interchange6::Schema->connect($dsn);