File Coverage

blib/lib/Chart/Plotly/Trace/Scatter/Selected/Textfont.pm
Criterion Covered Total %
statement 9 25 36.0
branch 0 8 0.0
condition 0 8 0.0
subroutine 3 4 75.0
pod 1 1 100.0
total 13 46 28.2


line stmt bran cond sub pod time code
1             package Chart::Plotly::Trace::Scatter::Selected::Textfont;
2 3     3   18 use Moose;
  3         7  
  3         32  
3 3     3   16883 use MooseX::ExtraArgs;
  3         8  
  3         19  
4 3     3   5234 use Moose::Util::TypeConstraints qw(enum union);
  3         7  
  3         23  
5             if ( !defined Moose::Util::TypeConstraints::find_type_constraint('PDL') ) {
6             Moose::Util::TypeConstraints::type('PDL');
7             }
8              
9             our $VERSION = '0.039'; # VERSION
10              
11             # ABSTRACT: This attribute is one of the possible options for the trace scatter.
12              
13             sub TO_JSON {
14 0     0 1   my $self = shift;
15 0   0       my $extra_args = $self->extra_args // {};
16 0           my $meta = $self->meta;
17 0           my %hash = %$self;
18 0           for my $name ( sort keys %hash ) {
19 0           my $attr = $meta->get_attribute($name);
20 0 0         if ( defined $attr ) {
21 0           my $value = $hash{$name};
22 0           my $type = $attr->type_constraint;
23 0 0 0       if ( $type && $type->equals('Bool') ) {
24 0 0         $hash{$name} = $value ? \1 : \0;
25             }
26             }
27             }
28 0           %hash = ( %hash, %$extra_args );
29 0           delete $hash{'extra_args'};
30 0 0 0       if ( $self->can('type') && ( !defined $hash{'type'} ) ) {
31 0           $hash{type} = $self->type();
32             }
33 0           return \%hash;
34             }
35              
36             has color => ( is => "rw",
37             isa => "Str",
38             documentation => "Sets the text font color of selected points.",
39             );
40              
41             __PACKAGE__->meta->make_immutable();
42             1;
43              
44             __END__
45              
46             =pod
47              
48             =encoding utf-8
49              
50             =head1 NAME
51              
52             Chart::Plotly::Trace::Scatter::Selected::Textfont - This attribute is one of the possible options for the trace scatter.
53              
54             =head1 VERSION
55              
56             version 0.039
57              
58             =head1 SYNOPSIS
59              
60             use HTML::Show;
61             use Chart::Plotly;
62             use Chart::Plotly::Trace::Scatter;
63             my $scatter = Chart::Plotly::Trace::Scatter->new( x => [ 1 .. 5 ], y => [ 1 .. 5 ] );
64            
65             HTML::Show::show( Chart::Plotly::render_full_html( data => [$scatter] ) );
66              
67             =head1 DESCRIPTION
68              
69             This attribute is part of the possible options for the trace scatter.
70              
71             This file has been autogenerated from the official plotly.js source.
72              
73             If you like Plotly, please support them: L<https://plot.ly/>
74             Open source announcement: L<https://plot.ly/javascript/open-source-announcement/>
75              
76             Full reference: L<https://plot.ly/javascript/reference/#scatter>
77              
78             =head1 DISCLAIMER
79              
80             This is an unofficial Plotly Perl module. Currently I'm not affiliated in any way with Plotly.
81             But I think plotly.js is a great library and I want to use it with perl.
82              
83             =head1 METHODS
84              
85             =head2 TO_JSON
86              
87             Serialize the trace to JSON. This method should be called only by L<JSON> serializer.
88              
89             =head1 ATTRIBUTES
90              
91             =over
92              
93             =item * color
94              
95             Sets the text font color of selected points.
96              
97             =back
98              
99             =head1 AUTHOR
100              
101             Pablo Rodríguez González <pablo.rodriguez.gonzalez@gmail.com>
102              
103             =head1 COPYRIGHT AND LICENSE
104              
105             This software is Copyright (c) 2020 by Pablo Rodríguez González.
106              
107             This is free software, licensed under:
108              
109             The MIT (X11) License
110              
111             =cut