File Coverage

blib/lib/Acme/Github/Test.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	2	2	100.0
subroutine	5	5	100.0
pod	3	3	100.0
total	26	26	100.0

use 5.014;
use warnings;

=head1 NAME

Acme::Github::Test - A test distribution for Github

=head1 SYNOPSIS

  use 5.014;
  use Acme::Github::Test;

  my $acme = Acme::Github::Test->new( 23 => 'skidoo' );
  $acme->freep;
  $acme->frobulate('barbaz');

=head1 ATTRIBUTES

The L object will accept a list of initializers, but they don't do anything.

=head1 METHODS

=over 4

=item * new()

This method initializes the object.  It can take a list of hash keys and values and store them. Returns
the initialized L 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<<  >>

=head1 SEE ALSO

=over 4

=item * https://github.com/mrallen1/Acme-Github-Test

=item * https://speakerdeck.com/mrallen1/intro-to-git-for-the-perl-hacker

=back

=head1 LICENSE

Copyright (c) 2012 by Mark Allen

This library is free software; you can redistribute it and/or modify it
under the terms of the Perl Artistic License (version 1) or the GNU
Public License (version 2)

=cut

package Acme::Github::Test 0.03 {

  our $VERSION = '0.03';

  sub new {
      my $class = shift;
      my @options = @_;
      my $self = { @options };
      return bless $self, $class
  }

  sub freep {
      my $self = shift;

      say "Freep!";
  }

  sub frobulate {
      my $self = shift;
      my $quux = shift // 42;

      say "$quux has been frobulated!";
      return $quux;
  }
}

1;