use v5.10.0; use strict; package JMAP::Tester::Result::Upload; # ABSTRACT: what you get when you upload a blob $JMAP::Tester::Result::Upload::VERSION = '0.006'; use Moo; with 'JMAP::Tester::Role::Result'; #pod =head1 OVERVIEW #pod #pod This is what you get when you upload! It's got an C<is_success> method. It #pod returns true. #pod #pod =cut sub is_success { 1 } has payload => ( is => 'ro', ); sub blob_id { $_[0]->payload->{blobId} } sub blobId { $_[0]->payload->{blobId} } sub type { $_[0]->payload->{type} } sub size { $_[0]->payload->{size} } sub expires { $_[0]->payload->{expires} } 1; __END__ =pod =encoding UTF-8 =head1 NAME JMAP::Tester::Result::Upload - what you get when you upload a blob =head1 VERSION version 0.006 =head1 OVERVIEW This is what you get when you upload! It's got an C<is_success> method. It returns true. =head1 AUTHOR Ricardo SIGNES <rjbs@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2016 by FastMail, Ltd. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut