Now that our database is full of data, it's time to make some sense out of it. We'll start by writing a function to determine the total number of points a "thing" has accumulated.
Instead of writing a script to test each query we write, we'll use a read-evaluate-print loop (REPL) to interact with our program in real time. To get a Perl REPL, install the Devel::REPL
module from CPAN. That module provides a script called re.pl
. Run re.pl
, and you'll be able to type in Perl code as though you're at a shell prompt that understands Perl.
As an example, let us try adding an opinion
from re.pl
:
$ re.pl # the > is now re.pl's prompt > use lib qw(lib); > use ChatStat::Action; > use ChatStat::Schema; > my $s = ChatStat::Schema->connect('DBI:SQLite:root/database'); $ChatStat_Schema1 = ChatStat::Schema=HASH(0x8aafda0); > my $a = ChatStat::Action->new('[email protected]', '#test', '(re. pl)++'); $ChatStat_Action1 = ChatStat::Action=HASH(0x90dbe40); > $a->...