Improving Dev Assistant

Decreasing the
amount of
PERL
in the world

Dev Assistant
http://www.devassistant.org/

package myClass;
use strict;
use warnings;
sub new {
my $class = shift;
my $self = {
_hotelName => shift,
_street => shift,
_name => shift,
_date => undef
};
bless $self, $class;
return $self;
}

sub enterBookedDate {
my ($self) = shift;
my $date = shift;
$self->{_date} = $date;
}
sub getHotelName {
my $self = shift;
return $self->{_hotelName};
}
# etc ...

#!/usr/bin/perl
#use strict;
use warnings;
use POSIX qw(strftime);
use myClass;
my $myClass = new myClass( "Holiday", "Baker Street", "Sherlock Holme
my $tm = strftime "%m/%d/%Y", localtime;
$myClass->enterBookedDate($tm);
print ("The hotel name is ". $myClass->getHotelName() . "n");
print ("The hotel street is ". $myClass->getStreet() . "n");
print ("The hotel is booked on the name ". $myClass->getGuestName() .
print ("Accomodation starts at " . $myClass->getBookedDate() . "n");

You probably
don't use
tools like this

But a lot of
people DO
use tools
like this

These people
are getting
a bad first
impression
of Perl

Merged
within a
couple of
hours

Project
team very
appreciative

(Obviously
not Perl
programmers)

They would
really like
more help

https://github.com/devassistant/dap-perl/

These people are
treating Perl as a
first-class
language

But they
aren't
first-class Perl
programmers

Dave Cross
dave@perlhacks.com
@davorg

Improving Dev Assistant

More Related Content

Improving Dev Assistant