#!/usr/bin/perl -w

use strict;
use warnings;

use lib ".";
use PhoneList;

my $mw = MainWindow->new;
$mw->configure(-title => "A phone List");

my $phoneNumbers = [
    {   number      => '123-4321',
        enable      => 'ACTIvE',
        description => 'Bob',
    },
    {   number      => '321-1234',
        enable      => '',
        description => 'Not Bob',
    },
];

PhoneList::setup($mw, -numbers => $phoneNumbers);