| Subject: | Mail::SPF synopsis example broken |
The example in the Mail::SPF SYNOPSIS appears to be broken.
#!/usr/bin/perl -w
use Mail::SPF;
my $spf = new Mail::SPF::Server();
my $request = new Mail::SPF::Request(
Ip => '198.7.0.1',
Sender => 'schwern@pobox.com',
);
my $response = $spf->query($request);
print "Result is " . $response->get_result;
The result is...
Query pobox.com TXT
$VAR1 = bless( {
'Value' => '',
'Qualifier' => '',
'ParseValue' => ''
}, 'Mail::SPF::Mech::MX' );
$VAR1 = bless( {
'Value' => ':fallback-relay.%{d}',
'Qualifier' => '',
'Domain' => 'fallback-relay.%{d}',
'ParseValue' => ''
}, 'Mail::SPF::Mech::MX' );
$VAR1 = bless( {
'Value' => ':webmail.%{d}',
'Qualifier' => '',
'Domain' => 'webmail.%{d}',
'ParseValue' => ''
}, 'Mail::SPF::Mech::A' );
$VAR1 = bless( {
'Value' => ':smtp.%{d}',
'Qualifier' => '',
'Domain' => 'smtp.%{d}',
'ParseValue' => ''
}, 'Mail::SPF::Mech::A' );
$VAR1 = bless( {
'Value' => ':outgoing.smtp.%{d}',
'Qualifier' => '',
'Domain' => 'outgoing.smtp.%{d}',
'ParseValue' => ''
}, 'Mail::SPF::Mech::A' );
$VAR1 = bless( {
'Value' => ':discard-reports.%{d}',
'Qualifier' => '',
'Domain' => 'discard-reports.%{d}',
'ParseValue' => ''
}, 'Mail::SPF::Mech::A' );
$VAR1 = bless( {
'Value' => ':discards.%{d}',
'Qualifier' => '',
'Domain' => 'discards.%{d}',
'ParseValue' => ''
}, 'Mail::SPF::Mech::A' );
$VAR1 = bless( {
'Value' => ':stor',
'Qualifier' => '',
'Domain' => 'stor',
'ParseValue' => ''
}, 'Mail::SPF::Mech::MX' );
$VAR1 = bless( {
'Value' => ':emerald.%{d}',
'Qualifier' => '',
'Domain' => 'emerald.%{d}',
'ParseValue' => ''
}, 'Mail::SPF::Mech::A' );
Undefined subroutine &Mail::SPF::Mod called at
/Library/Perl/5.8.6/Mail/SPF/Record.pm line 56.