#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use IO::File;
use Tie::File::Hashify;
my %rc;
my $ok;
$ok = tie(%rc, 'Tie::File::Hashify', undef, format => '- %s => %s');
ok($ok, 'tie worked');
$rc{foo} = 'bar';
ok(%rc eq "- foo => bar\n", 'format works');
untie %rc;