lib/WWW/Passmark/GPU.pm

   1 package WWW::Passmark::GPU;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6
   7 sub name { shift->[0] }
   8 sub price { shift->[1] }
   9 sub g3dmark { shift->[2] }
  10 sub value { shift->[3] }
  11 sub g2dmark { shift->[4] }
  12 sub tdp { shift->[5] }
  13 sub power_performance { shift->[6] }
  14 sub test_date { shift->[7] }
  15 sub category { shift->[8] }
  16 sub extra_info { shift->[9] }
  17
  18 1;
  19 __END__
  20
  21 =encoding utf-8
  22
  23 =head1 NAME
  24
  25 WWW::Passmark::GPU - benchmark results of a GPU
  26
  27 =head1 SYNOPSIS
  28
  29   my $gpu = ...;
  30   say $gpu->name; # Radeon RX 580
  31   say $gpu->g3dmark; # 8376
  32   say $gpu->g2dmark; # 748
  33   say $gpu->test_date; # Apr 2017
  34   say $gpu->tdp; # 185
  35
  36 =head1 DESCRIPTION
  37
  38 An instance of this module represents benchmark results for some GPU.
  39 Methods of this module return the various results, see source code for
  40 a list of available methods.
  41
  42 =head1 AUTHOR
  43
  44 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
  45
  46 =head1 COPYRIGHT AND LICENSE
  47
  48 Copyright (C) 2018 by Marius Gavrilescu
  49
  50 This library is free software; you can redistribute it and/or modify
  51 it under the same terms as Perl itself, either Perl version 5.24.1 or,
  52 at your option, any later version of Perl 5 you may have available.
  53
  54
  55 =cut