package method1;
sub new{
	my $class = shift;

	return bless \&scan, $class;
}

sub scan{
	my @results = qw/foo bar baz/;
	#!do scan;
	return \@results;
}
1;