#!/usr/bin/env perl

use feature 'say';
use File::Slurp 'read_file';

my $re = qr/around '([^']+)'/;

my @methods  = map { $_ =~ $re } read_file $ARGV[0];
my $Type     = ucfirst $ARGV[1];
my $type     = lc $Type;

for my $method (@methods) {
print <<"EOF";
=method $method

    # given 1

    \$$type->$method(...); # ...

The $method method returns ... . This method returns a Data::Object::$Type object.

=cut

EOF
}


