gistfile1.txt

# So my $github = $obj->github({ arg => "foo" }) works;

    has github  =>
      isa       => "Gitpan::Github|HashRef",
      is        => 'rw',
      lazy      => 1,
      trigger   => sub {        # trigger doesn't take a method
          my($self, $new, $old) = @_;

          return $new if $new->isa("Gitpan::Github");
          $self->github( $self->_new_github($new) );
      },
      default   => method {
          return $self->_new_github;
      };

    method _new_github(HashRef $args = {}) {
        return Gitpan::Github->new(
            repo      => $self->distname,
            %$args,
        );
    }