Net-Google-DocumentsList

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'Perl interface to Google Documents List Data API'
author:
  - 'Noubo Danjou <danjou@soffritto.org>'
build_requires:
  ExtUtils::MakeMaker: 6.59
  File::BOM: 0
  Test::More: 0
configure_requires:
  ExtUtils::MakeMaker: 6.59
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.06'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4

Makefile.PL  view on Meta::CPAN

requires 'URI';
requires 'URI::Escape';
requires 'DateTime::Format::Atom';
requires 'String::CamelCase' => '0.02';
requires 'File::stat';

tests 't/*.t';
author_tests 'xt';

build_requires 'Test::More';
build_requires 'File::BOM';
auto_set_repository;
WriteAll;

t/06_upload.t  view on Meta::CPAN

use t::Util;
use Test::More;
use utf8;
use Encode;
use File::Temp;
use File::BOM;

my $service = service();

my $bom = $File::BOM::enc2bom{'UTF-8'};


{
    my $title = join(' - ', 'test for upload', scalar localtime);
    ok my $doc = $service->add_item(
        {
            title => $title,
            file => 't/data/foobar.txt',
        }
    );

t/06_upload.t  view on Meta::CPAN

    ok eval {
        $doc->export(
            {
                format => 'txt',
                file => $file,
            }
        )
    };
    close $file;
    open my $fh, "<:via(File::BOM)", $file->filename;
    my $content = do {local $/; <$fh>};
    is $content, "foobar";

    ok $doc->update_content('t/data/hogefuga.txt');

    ok my $export = eval { $doc->export({format => 'txt'}) };
    is Encode::encode('utf-8', $export), $bom.'hogefuga';

    ok $doc->delete({delete => 'true'});
}

t/11_upload_large.t  view on Meta::CPAN

use t::Util;
use Test::More;
use utf8;
use Encode;
use File::Temp;
use File::BOM;

my $file = $ENV{TEST_UPLOAD_FILE};

unless ($file && -r $file) {
    plan skip_all => 'set TEST_UPLOAD_FILE=your_pdf_larger_than_512kb.pdf to run this test';
}

my $service = service();

{