jberger

#!/usr/bin/env perl

use strict;
use warnings;

sub regex_from_list {
  my $re = join '|', map { quotemeta } @_;
  return qr/\b(?:$re)\b/i;
}

jberger

#!/usr/bin/env perl

use Mojolicious::Lite;

plugin 'Humane';

get '/' => sub {
  my $self = shift;
  $self->humane_stash( 'Welcome Back!' );
  $self->render( 'simple' );

jberger

use strict;
use warnings;

use PDL::Doc;
use DDP output => shift;

my $parser = PDL::Doc->new;
$parser->scan(shift);

p $parser;

jberger

use strict;
use warnings;

use Text::Balanced qw/extract_bracketed extract_delimited extract_multiple/;

sub find_anchor_targets {
  my $html = shift;

  my @tags = extract_multiple( 
    $html, 

jberger

  $app->helper( 'control_group' => sub {
    my $self = shift;
    my $contents = pop;
    my $label = xml_escape pop if @_;
    my $for   = xml_escape pop if @_;

    my $return .= '<div class="control-group">';

    if ($label) {
      $return .= '<label class="control-label"';

jberger

package MyApp;
use Mojo::Base 'Mojolicious';

sub startup {
  my $self = shift;
  $self->helper( random => sub { rand } );
  $self->routes->any( '/' => sub { 
    my $c = shift;
    $c->render( text => $c->random );
  });

jberger

# This does the same as Part 2 without doing the automagic loading.
# DONT DO THIS REGULARLY, because part of the system might change,
# the ->plugin loading abstracts you from that
package MyApp;
use Mojo::Base 'Mojolicious';
use Mojolicious::Plugin::MyPlugin;

sub startup {
  my $self = shift;
  my $plugin = Mojolicious::Plugin::MyPlugin->new;

jberger

use Data::Dumper;

sub write_data {
  my ($file, $data) = @_;
  open my $fh, '>', $file or die "Couldn't open $file: $!";
  print $fh Dumper $data;
}

sub read_data {
  my ($file) = @_;

jberger

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

#############################
# Getting the Forecast Data #
#############################

use PDL;
use Time::Piece;

jberger

#!/usr/bin/env perl
 
use Mojolicious::Lite;
 
my $pass = 'MyPassword';
 
any '/' => 'home';

any '/open' => sub {
  my $self = shift;