1#!/usr/bin/perl -w 2package Foo; 3use Pod::WSDL::AUTOLOAD; 4 5our @ISA = qw/Pod::WSDL::AUTOLOAD/; 6 7sub new { 8 my $pgk = shift; 9 bless { 10 _bar => 'blah', 11 }, $pgk 12} 13 141; 15 16package main; 17use Test::More tests => 3; 18 19$foo = Foo->new; 20ok($foo->bar eq 'blah', '"_bar" retrievable with "bar".'); 21$foo->bar('bloerch'); # sets _bar to 'bloerch' 22ok($foo->bar eq 'bloerch', '"_bar" settable with "bar".'); 23 24eval { 25 $foo->boerk; 26}; 27 28ok($@, 'Using method not equivalent to any attribute croaks'); 29 30 31 32