Wolfgang Kinkeldei wki

## Fake Build SSH Helper module
#r "paket:
nuget Fake.Core.Target
nuget SSH.NET //"
#load "./.fake/build.fsx/intellisense.fsx"


module Ssh =
    open Renci.SshNet
    open Fake.Core

## install_modules.sh
#!/bin/bash
#
# simple carton.lock based module installer script
# assumes that cpanm is installed natively for the perl used
#
# carton is not fully usable yet.
# One failing example is DBD::Pg.
# Reason: carton does not like "v2.19.2" version strings
#

## result_source_example.pl
package Schema::Result::Alarm;
use Moose;
use MooseX::NonMoose;
use MooseX::MarkAsMethods autoclean => 1;
extends 'DBIx::Class::Core';

__PACKAGE__->table_class('Schema::ResultSource::Alarm');

__PACKAGE__->table("alarm");

## multi_pdf.pl
#!/usr/bin/env perl
use Modern::Perl;

BEGIN {
    if (@ARGV != 2) {
        print STDERR "usage: $0 DIR OUTPUT\n";
        exit 1;
    }
}

## await_defer.pl
#!/usr/bin/env perl
use strict;
use warnings;
use feature ':5.10';
use AnyEvent;

our $await_info;

sub on_timeout {
    my ($timeout, $code) = @_;

## redis_benchmark.pl
#!/usr/bin/env perl
use strict;
use warnings;
use feature ':5.10';
use Redis;
use YAML::XS ();
use YAML ();
use JSON::XS ();
use IO::Socket::INET;
use Data::Dumper;

## css_parser.pl
use strict;
use warnings;
use feature ':5.10';
use Marpa::XS;
use Data::Dumper;

#
# a simple CSS snippet for testing
#
my $text = q{

## gist:340590
#!/usr/bin/perl
use strict;
use warnings;
use HTML::Zoom;

my $html = <<HTML;
<html>
  <head>
    <title>Hello people</title>
  </head>

## gist:334969
# real location of this library:
#    /some/perl-search/path/Devel/CatDebug.pm
#
# debug your application like this:
# $ PERL5LIB=./lib perl -d:CatDebug ./script/name_or_your_app_server.pl
#
package DB;

our $stack_depth = 0;
our $must_show = 0;
	#r "paket:
	nuget Fake.Core.Target
	nuget SSH.NET //"
	#load "./.fake/build.fsx/intellisense.fsx"


	module Ssh =
	open Renci.SshNet
	open Fake.Core
	#!/bin/bash
	#
	# simple carton.lock based module installer script
	# assumes that cpanm is installed natively for the perl used
	#
	# carton is not fully usable yet.
	# One failing example is DBD::Pg.
	# Reason: carton does not like "v2.19.2" version strings
	#
	package Schema::Result::Alarm;
	use Moose;
	use MooseX::NonMoose;
	use MooseX::MarkAsMethods autoclean => 1;
	extends 'DBIx::Class::Core';

	__PACKAGE__->table_class('Schema::ResultSource::Alarm');

	__PACKAGE__->table("alarm");
	#!/usr/bin/env perl
	use Modern::Perl;

	BEGIN {
	if (@ARGV != 2) {
	print STDERR "usage: $0 DIR OUTPUT\n";
	exit 1;
	}
	}
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use feature ':5.10';
	use AnyEvent;

	our $await_info;

	sub on_timeout {
	my ($timeout, $code) = @_;
	#!/usr/bin/perl
	use strict;
	use warnings;
	use HTML::Zoom;

	my $html = <<HTML;
	<html>
	<head>
	<title>Hello people</title>
	</head>
	# real location of this library:
	# /some/perl-search/path/Devel/CatDebug.pm
	#
	# debug your application like this:
	# $ PERL5LIB=./lib perl -d:CatDebug ./script/name_or_your_app_server.pl
	#
	package DB;

	our $stack_depth = 0;
	our $must_show = 0;