willwillis

package Website;

use Moose;
use WWW::Mechanize;
use Data::Dumper; # for debugging

our $VERSION = '0.01';

has 'login_url' => (is => 'rw', default => 'https://secure.loginz.com');
has 'user'	=> (is => 'rw', isa => 'Str', required => 1);

willwillis

#!/usr/bin/perl
use Date::Calc qw/:all/;
# 
# posting some more scripts
# from back in the day
# 
# 
my %days_till = (
    Graduation   => Delta_Days( Today(), 2007, 12, 16 ),
    MyLastFinal  => Delta_Days( Today(), 2007, 12, 8 ),

willwillis

#!/usr/bin/perl
# 
# This is a script I used (many years ago) to 
# have my paypal balanced texted to me. Srlys doubt it
# still works - and there's prolly an api to call now :/
# (circa early 2000's)
# 
use strict;
use warnings;