The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Pithub::Repos::Contents - Github v3 Repo Contents API

VERSION

version 0.01015

METHODS

archive

  • This method will return a 302 to a URL to download a tarball or zipball archive for a repository.

    Note: For private repositories, these links are temporary and expire quickly.

        GET /repos/:user/:repo/:archive_format/:ref

    The ref parameter is optional and will default to master.

    Examples:

        my $c = Pithub::Repos::Contents->new(
            repo => 'Pithub',
            user => 'plu'
        );
    
        my $result = $c->archive( archive_format => 'tarball' );
        if ( $result->success ) {
            File::Slurp::write_file('Pithub-master.tgz', $result->raw_content);
        }
    
        $result = $c->archive( archive_format => 'tarball', ref => 'other_branch' );
        if ( $result->success ) {
            File::Slurp::write_file('Pithub-other_branch.tgz', $result->raw_content);
        }

get

  • This method returns the contents of any file or directory in a repository.

        GET /repos/:user/:repo/contents/:path

    Optional Parameters:

    • ref: Optional string - The String name of the Commit/Branch/Tag. Defaults to master.

    Examples:

        my $c = Pithub::Repos::Contents->new(
            repo => 'Pithub',
            user => 'plu'
        );
    
        # List all files/directories in the repo root
        my $result = $c->get;
        if ( $result->success ) {
            say $_->{name} for @{ $result->content };
        }
    
        # Get the Pithub.pm file
        $result = $c->get( path => 'lib/Pithub.pm' );
        print Dumper $result->content if $result->success;

readme

  • This method returns the preferred README for a repository.

        GET /repos/:user/:repo/readme

    Optional Parameters:

    • ref: Optional string - The String name of the Commit/Branch/Tag. Defaults to master.

    Examples:

        my $c = Pithub::Repos::Contents->new(
            repo => 'dotfiles',
            user => 'plu'
        );
    
        my $result = $c->readme;
        if ( $result->success ) {
            print Dumper $result->content;
        }
    
        # Get the readme of branch 'other_branch'
        $result = $c->readme( params => { ref => 'other_branch' } );
        print Dumper $result->content if $result->success;

AUTHOR

Johannes Plunien <plu@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Johannes Plunien.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.