Skip to content

Instantly share code, notes, and snippets.

Skye Shaw sshaw

Block or report user

Report or block sshaw

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
sshaw / gist:386070
Created May 1, 2010
Rails current_page? Style Referer Function
View gist:386070
# Usage:
# referer? :controller => 'beezies', :action => 'holla', :type => 'popozuda'
# referer? %r|/\d+/edit|
def referer?(options)
referer = request.headers["Referer"]
return (options.blank? ? true : false) if referer.blank?
if options.is_a?(Regexp)
referer =~ options
sshaw / Makefile.PL
Created Mar 27, 2011
Makefile.PL postamble() - Create README.pod for Perl packages uploaded to GitHub
View Makefile.PL
# Create README.pod for a repo's GitHub page. Unlike CPAN, GitHub won't
# display the module's POD, it looks for a README.*
use Config;
sub MY::postamble
my $self = shift;
return if -r 'README' or ! -r $self->{VERSION_FROM};
\@$Config{bin}/perldoc -uT $self->{VERSION_FROM} > README.pod
sshaw / random_record.rb
Created Jul 15, 2011
Rails 3 - select random record(s)
View random_record.rb
module RandomRecord
def random
def random_function_name
if !defined? @__random_function_name
@__random_function_name = "rand()"
sshaw / form_builder_with_cancel.rb
Created Jul 26, 2011
FormBuilderWithCancel < Formtastic::SemanticFormBuilder
View form_builder_with_cancel.rb
# - f.buttons do
# = f.commit_button
# = f.cancel
# Need to make this v2 like by using module...
class FormBuilderWithCancel < Formtastic::SemanticFormBuilder
def cancel(*args)
options = args.extract_options!
options[:class] ||= "cancel"
options[:label] ||= (args.shift || "Cancel")
sshaw / gist:1604295
Created Jan 13, 2012
Custom Registry Settings
View gist:1604295
Windows Registry Editor Version 5.00
; Show hidden and system files
; In Explorer, do not open folders in new window
sshaw / Makefile.PL
Created Jan 16, 2012
Use test libs without all the `use lib` calls
View Makefile.PL
# Include test helpers and/or libs
sub MY::test
package MY;
my $make = shift->SUPER::test(@_);
$make .= 'FULLPERLRUN = $(FULLPERL) -I t -I t/lib';
return $make;
sshaw / 00run.t
Created Jan 21, 2012
Test::Class Class Filter
View 00run.t
use Test::Class::Load 't/lib';
# I feel that there's a better way to do this.
# Also if no tests run then no plan is emitted, shouldn't Test::Class deal with this?
# Regexes are not validated.
sshaw / gist:2298052
Created Apr 4, 2012
Mojolicious Twitter Bootstrap Flash/Stash Alerts
View gist:2298052
use Mojo::ByteStream;
app->helper(alerts => sub {
my $c = shift;
my $html = '';
for my $message (qw|success info error|) {
my $css = "alert alert-$message";
if($c->flash($message)) {
$html .= $c->tag('div', class => $css, $c->flash($message));
You can’t perform that action at this time.