view release on metacpan or  search on metacpan

lib/Net/Plurk/Plurk.pm  view on Meta::CPAN

has 'is_unread' => (is => 'ro', isa => 'Int');
has 'plurk_type' => (is => 'ro', isa => 'Int');
has 'user_id' => (is => 'ro', isa => 'Str');
has 'owner_id' => (is => 'ro', isa => 'Str');
has 'posted' => (is => 'rw', isa => 'Net::Plurk::Value::DateTime', coerce => 1);
has 'no_comments' => (is => 'ro', isa => 'Int');
has 'content' => (is => 'ro', isa => 'Str');
has 'content_raw' => (is => 'ro', isa => 'Str');
has 'response_count' => (is => 'ro', isa => 'Int');
has 'responses_seen' => (is => 'ro', isa => 'Int');
has 'limited_to' => (is => 'ro', isa => 'ArrayRef[Int] | Undef');

no Moose::Util::TypeConstraints;
no Moose;
__PACKAGE__->meta->make_immutable;
1;

lib/Net/Plurk/UserProfile.pm  view on Meta::CPAN

    => from 'Net::Plurk::User'
        => via { Net::Plurk::User->new( $_ ) }
    => from 'HashRef'
        => via { Net::Plurk::User->new( $_ ) };

has 'friends_count' => (is => 'ro', isa => 'Int');
has 'user_info' => (is => 'ro', isa => 'My::Net::Plurk::User', coerce => 1);
has 'alerts_count' => (is => 'ro', isa => 'Int');
has 'fans_count' => (is => 'ro', isa => 'Int');
has 'unread_count' => (is => 'ro', isa => 'Int');
has 'plurks_users' => (is => 'ro', isa => 'HashRef');
has 'privacy' => (is => 'ro', isa => enum([qw[ world only_friends only_me ]]));
#has 'plurks' => (is => 'ro', isa => 'ArrayRef[Net::Plurk::PlurkContent]');
has 'plurks' => (is => 'ro', isa => 'ArrayRef');
has 'nick_name' => (is => 'ro', isa => 'Str', lazy_build => 1);

sub _build_nick_name {
    my $self = shift;
    return $self->user_info->nick_name;
}

no Moose::Util::TypeConstraints;
package Net::Plurk::PublicUserProfile;
use Moose;