#!/usr/bin/perl -T

use warnings;
use strict;
use lib qw(lib);
use ClearPress::controller;

use GrandKids::util;
use GrandKids::view::error;

use GrandKids::view::child;
use GrandKids::model::child;
use GrandKids::view::family;
use GrandKids::model::family;

our $VERSION = do { my ($r) = q$LastChangedRevision: 348 $ =~ /(\d+)/smx; $r; };

main();
0;

sub main {
  my $util = GrandKids::util->new();
  ClearPress::controller->handler($util);
}