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

use lib '.';

use Mail::Box::Manager;
use Mail::Box::Search::SpamAssassin;

my $mgr    = Mail::Box::Manager->new;
my $folder = $mgr->open('t/mbox.src', lock_method => 'NONE');
my $spam   = Mail::Box::Search::SpamAssassin->new;

$spam->search($folder);

foreach my $msg ($folder->messages)
{   $msg->print if $msg->label('spam');
}
