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

$Student::DEBUG = 1;

my $gradTA = create Student('Dan Hebert', '768319810');
my $uTA = Student->create('Gavin Olson', '123456789');

print "Setting ", $gradTA->name, "'s GPA...\n";
$gradTA->GPA(95.32);
print "$gradTA has a GPA of ", $gradTA->GPA, "\n";

print "About to change $uTA\'s name:\n";
$uTA->name('Noah Kantrowitz');
print "UTA now: $uTA\n";

$uTA->GPA('65..32');
print "$uTA is currently ", $uTA->status, "\n";

print "We currently have ", Student->students, " students\n";

{
  print "About to create a new student\n";
  my $stud = create Student('Temp Testerson', '000000000');
  print "$stud created, new total: ", Student->students, "\n";
}

print "And after the block, total: ", Student->students, "\n";