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

use lib '../../lib';
use Mail::Message::Field::Full;
use Mail::Message;

my $cc    = Mail::Message::Field::Full->new('Cc');
my $me    = Mail::Message::Field::Address->parse('"Mail::Box" <test@mail.box>')
  or die;

my $other = Mail::Message::Field::Address->new(phrase => 'Testing'
  , address => 'other@example.com')
   or die;

$cc->addAddress($me);
$cc->addAddress($other, group => 'them');
$cc->addAddress(phrase => 'third', address => 'more@any.museum'
  , group => 'them');

my $group = $cc->addGroup(name => 'collegues');
$group->addAddress($me);
$group->addAddress(phrase => "You", address => 'you@example.com');

my $msg = Mail::Message->build(Cc => $cc);
print $msg->string;
