view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    This method initializes the object.  It can take a list of hash keys and values and store them. Returns
    the initialized [Acme::Github::Test](http://search.cpan.org/perldoc?Acme::Github::Test) object.

- freep()

    This method prints the string scalar "Freep!" on standard out.  It takes no input values. Returns a true
    value.

- frobulate()

    Takes an optional scalar value as input. The value '42' is the default value for this method. Returns the
    passed value or the default. (That means if you pass 0 or some other untrue scalar value, the return value 
    will be false.)

# AUTHOR

Mark Allen `<mallen@cpan.org>`

# SEE ALSO

- https://github.com/mrallen1/Acme-Github-Test
- https://speakerdeck.com/mrallen1/intro-to-git-for-the-perl-hacker

lib/Acme/Github/Test.pm  view on Meta::CPAN

This method initializes the object.  It can take a list of hash keys and values and store them. Returns
the initialized L<Acme::Github::Test> object.

=item * freep()

This method prints the string scalar "Freep!" on standard out.  It takes no input values. Returns a true
value.

=item * frobulate()

Takes an optional scalar value as input. The value '42' is the default value for this method. Returns the
passed value or the default. (That means if you pass 0 or some other untrue scalar value, the return value 
will be false.)

=back

=head1 AUTHOR

Mark Allen C<< <mallen@cpan.org> >>

=head1 SEE ALSO

t/01-use.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 6;
use Acme::Github::Test;

my $acme = Acme::Github::Test->new( 23 => 'skidoo' );
isa_ok($acme, 'Acme::Github::Test', 'object');

ok($acme->freep, 'freep() returns true');
ok($acme->frobulate, 'frobulate() returns true');
is($acme->frobulate, 42, 'frobulate defaults to 42');
is($acme->frobulate('barbaz'), 'barbaz', 'frobulate correctly returns passed value');
is($acme->frobulate(0), 0, 'frobulate correctly uses a false value');