Iain C Docherty icydee

## test_socket.pl
#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use IO::Socket::IP;
use Socket qw(SOCK_STREAM AF_INET6);

my $testserver = IO::Socket->new;

## affirmation
I, Iain C Docherty, have read and do accept the MuleSoft Contributor Agreement
at http://www.mulesoft.org/legal/contributor-agreement.html

Accepted on Fri Oct 30 2015 10:30:27 GMT+0000 (GMT Standard Time)

## levenshtein comparitor
use strict;
use warnings;

use Text::Levenshtein qw(distance fastdistance);
use File::Slurp;
use Digest::MD4 qw(md4_hex);
use Text::JaroWinkler qw(strcmp95);

my $i = 0;
my @checksum;

## login-radius-test
<html>
<head>

<script src="https://hub.loginradius.com/include/js/LoginRadius.js" ></script>
<script src="js/libs/login-radius.js" type="text/javascript"></script>

<script type="text/javascript">
    var options={};
    options.login=true;
    LoginRadius_SocialLogin.util.ready(function () {

## gist:7964576
<html>
<head>

<script src="https://hub.loginradius.com/include/js/LoginRadius.js" ></script>
<script src="js/libs/login-radius.js" type="text/javascript"></script>

<script type="text/javascript">
    var options={};
    options.login=true;
    LoginRadius_SocialLogin.util.ready(function () {

## gist:7913892
use strict;
use warnings;

use lib "lib";
use Safe;
use Data::Dumper;
use Ar;

my $compartment = new Safe;
$compartment->permit(":load",qw(pack sort print));

## gist:7913720
package RedisTest;

use Moose;
use Redis;
use namespace::autoclean;

has 'id'    => (
    is          => 'ro',
    default     => '945',
);

## gist:5408085
{
  "person" : {
    "945" : {
      "empire" : "icydee",
      "on_line" : 0,
      "alliance" : {
        "name" : "Culture",
        "id" : 26
      }
    },
	#!/usr/bin/perl

	use strict;
	use warnings;

	use Data::Dumper;
	use IO::Socket::IP;
	use Socket qw(SOCK_STREAM AF_INET6);

	my $testserver = IO::Socket->new;
	I, Iain C Docherty, have read and do accept the MuleSoft Contributor Agreement
	at http://www.mulesoft.org/legal/contributor-agreement.html

	Accepted on Fri Oct 30 2015 10:30:27 GMT+0000 (GMT Standard Time)
	use strict;
	use warnings;

	use Text::Levenshtein qw(distance fastdistance);
	use File::Slurp;
	use Digest::MD4 qw(md4_hex);
	use Text::JaroWinkler qw(strcmp95);

	my $i = 0;
	my @checksum;
	<html>
	<head>

	<script src="https://hub.loginradius.com/include/js/LoginRadius.js" ></script>
	<script src="js/libs/login-radius.js" type="text/javascript"></script>

	<script type="text/javascript">
	var options={};
	options.login=true;
	LoginRadius_SocialLogin.util.ready(function () {
	use strict;
	use warnings;

	use lib "lib";
	use Safe;
	use Data::Dumper;
	use Ar;

	my $compartment = new Safe;
	$compartment->permit(":load",qw(pack sort print));
	package RedisTest;

	use Moose;
	use Redis;
	use namespace::autoclean;

	has 'id' => (
	is => 'ro',
	default => '945',
	);
	{
	"person" : {
	"945" : {
	"empire" : "icydee",
	"on_line" : 0,
	"alliance" : {
	"name" : "Culture",
	"id" : 26
	}
	},