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

use lib '../../lib';

use Mail::Message::Field::Address;
my $mmfa = 'Mail::Message::Field::Address';

my $ad = $mmfa->new(phrase => 'Mαrk Overmeer', username => 'markov'
   , domain => 'cpan.org', comment => 'This is me!'
   , charset => 'utf-8', encoding => 'Q'
  );

print $ad->string;
