tsibley

    my $starts;
    if ( defined $ARGS{'Starts'} and $ARGS{'Starts'} =~ /\S/ ) {
        $starts = new RT::Date( $session{'CurrentUser'} );
        $starts->Set( Format => 'unknown', Value => $ARGS{'Starts'} );
    }

and then later

        Due             => $due ? $due->ISO : undef,
        Starts          => $starts ? $starts->ISO : undef,

tsibley

func! s:FoldBPSCopyright()
    if !exists( "b:foldedBPSCopyright" ) && (&ft == 'mason' || &ft == 'perl')
        let b:foldedBPSCopyright = 1
        set foldenable
        try
            " The idea is to only have the copyright block folded
            silent /BEGIN BPS TAGGED BLOCK/,/END BPS TAGGED BLOCK/fold
        catch
            " do nothing
        endtry

tsibley

" Mason
au BufNewFile,BufRead   *   call s:FTmason()

func! s:FTmason()
  let n = 1
  while n < 10
    let l = getline(n)
    if l =~ '^%#' || l =~ '^\<%(INIT|init)\>' || l =~ '^\<%(ARGS|args)\>'
      set filetype=mason
      return

tsibley

---
abstract: 'easy access to any pastebin'
author:
  - 'Shawn M Moore, C<sartak@gmail.com>'
build_requires:
  ExtUtils::MakeMaker: 6.42
configure_requires:
  ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 1.00'

tsibley

---
abstract: 'easy access to any pastebin'
author:
  - 'Shawn M Moore, C<sartak@gmail.com>'
build_requires:
  ExtUtils::MakeMaker: 6.42
configure_requires:
  ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 1.00'

tsibley

#!/bin/bash
grabnext=0
opts=''
for arg; do
    if [[ $grabnext != 0 || ! "$arg" =~ ^- ]]; then
        opts="+0 +/\\v$arg"
        break
    elif [[ "$arg" == "--" ]]; then
        grabnext=1
    fi

tsibley

#!/bin/bash
middleware=""

if [[ "$1" == "markdown" || "$1" == "md" || "$1" == "wiki" ]]; then
    wikilinks=0
    if [[ "$1" == "wiki" ]]; then wikilinks=1; fi
    shift
    middleware='
        enable_if { $_[0]->{REQUEST_URI} =~ /\.(md|mkdwn|markdown)$/ }
            SimpleContentFilter => filter => sub {

tsibley

#!/bin/bash
# We use --host localhost by default so that Regexp::Common matches
plackup --host 0.0.0.0 -R share,static,web "$@" 3>&1 1>&2 2>&3 \
    | perl -MRegexp::Common=URI -wne 'system("gnome-open", $1), $spawned++ if not $spawned and /($RE{URI}{HTTP})/; warn $_;'

tsibley

#!/usr/bin/env perl
use strict;
use warnings;

use Config::GitLike::Git;
my $c = Config::GitLike::Git->new;
$c->load;

my $remote = $c->get( key => 'remote.origin.url' );

tsibley

#!/usr/bin/env perl
# Copyright (C) 2012 Thomas Sibley <tsibley@cpan.org>

package Nopaste;
use strict;
use warnings;
use utf8;

use lib ($ENV{'SHUTTER_ROOT'} || "/usr")."/share/shutter/resources/modules";