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