Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/MetaCPAN/Client

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Author.pm	6.26 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Cover.pm	1.59 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Distribution.pm	3.05 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
DownloadURL.pm	1.53 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Favorite.pm	1.94 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
File.pm	5.89 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Mirror.pm	2.13 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Module.pm	1.48 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Package.pm	1.7 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Permission.pm	1.46 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Pod.pm	2.19 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Rating.pm	1.61 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Release.pm	5.37 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Request.pm	7.42 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
ResultSet.pm	3.76 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Role	-	drwxr-xr-x	2022-02-23 11:31:01	Del
Scroll.pm	4.05 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del
Types.pm	1.29 KB	-rw-r--r--	2020-08-24 17:12:28	Edit Del

Editing: Rating.pm (1.61 KB)

use strict;
use warnings;
package MetaCPAN::Client::Rating;
# ABSTRACT: A Rating data object
$MetaCPAN::Client::Rating::VERSION = '2.028000';
use Moo;

with 'MetaCPAN::Client::Role::Entity';

my %known_fields = (
    scalar => [qw<
        author
        date
        details
        distribution
        helpful
        rating
        release
        user
    >],
    arrayref => [],
    hashref  => [],
);

my @known_fields =
    map { @{ $known_fields{$_} } } qw< scalar arrayref hashref >;

foreach my $field (@known_fields) {
    has $field => (
        is      => 'ro',
        lazy    => 1,
        default => sub {
            my $self = shift;
            return $self->data->{$field};
        },
    );
}

sub _known_fields { return \%known_fields }

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

MetaCPAN::Client::Rating - A Rating data object

=head1 VERSION

version 2.028000

=head1 SYNOPSIS

    my $ratings = $mcpan->rating({ distribution => "Moo" });
    while ( my $rat = $ratings->next ) { ... }

=head1 DESCRIPTION

A MetaCPAN rating entity object.

=head1 ATTRIBUTES

=head2 date

An ISO8601 datetime string like C<2016-11-19T12:41:46> indicating when the
rating was created.

=head2 release

=head2 author

=head2 details

=head2 rating

=head2 distribution

=head2 helpful

=head2 user

=head1 AUTHORS

=over 4

=item *

Sawyer X <xsawyerx@cpan.org>

=item *

Mickey Nasriachi <mickey@cpan.org>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2016 by Sawyer X.

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