#!/usr/bin/env perl

use strict;
use warnings;

use FindBin qw($Bin);
use File::Spec;

use lib File::Spec->catdir($Bin, 'lib');

use Dog;
use Scope::With;
use Test::More tests => 4;

my $spot = Dog->new;

with ($spot) {
    is bark(),     'woof!';
    is wag_tail(), '*wags tail*';
    is yawn(),     'yawn!';
}

pass('no need to add a trailing semicolon');