File Coverage

blib/lib/Excel/Writer/XLSX/Chart/Doughnut.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch	2	4	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	1	2	50.0
total	54	60	90.0

package Excel::Writer::XLSX::Chart::Doughnut;

###############################################################################
#
# Doughnut - A class for writing Excel Doughnut charts.
#
# Used in conjunction with Excel::Writer::XLSX::Chart.
#
# See formatting note in Excel::Writer::XLSX::Chart.
#
# Copyright 2000-2019, John McNamara, [e-mail]
#
# Documentation after __END__
#

# perltidy with the following options: -mbl=2 -pt=0 -nola

use 5.008002;
use strict;
use warnings;
use Carp;
use Excel::Writer::XLSX::Chart::Pie;

our @ISA     = qw(Excel::Writer::XLSX::Chart::Pie);
our $VERSION = '1.03';


###############################################################################
#
# new()
#
#
sub new {

    my $class = shift;
    my $self  = Excel::Writer::XLSX::Chart::Pie->new( @_ );

    $self->{_vary_data_color} = 1;
    $self->{_hole_size}       = 50;
    $self->{_rotation}        = 0;

    bless $self, $class;
    return $self;
}


###############################################################################
#
# set_hole_size()
#
# Set the Doughnut chart hole size.
#
sub set_hole_size {

    my $self = shift;
    my $size = shift;

    return if !defined $size;

    if ( $size >= 10 && $size <= 90 ) {
        $self->{_hole_size} = $size;
    }
    else {
        carp "Hole size $size outside Excel range: 10 <= size <= 90";
    }
}


##############################################################################
#
# _write_chart_type()
#
# Override the virtual superclass method with a chart specific method.
#
sub _write_chart_type {

    my $self = shift;

    # Write the c:doughnutChart element.
    $self->_write_doughnut_chart( @_ );
}


##############################################################################
#
# _write_doughnut_chart()
#
# Write the  element. Over-ridden method to remove axis_id code
# since Doughnut charts don't require val and cat axes.
#
sub _write_doughnut_chart {

    my $self = shift;

    $self->xml_start_tag( 'c:doughnutChart' );

    # Write the c:varyColors element.
    $self->_write_vary_colors();

    # Write the series elements.
    $self->_write_ser( $_ ) for @{ $self->{_series} };

    # Write the c:firstSliceAng element.
    $self->_write_first_slice_ang();

    # Write the c:holeSize element.
    $self->_write_hole_size();

    $self->xml_end_tag( 'c:doughnutChart' );
}


##############################################################################
#
# _write_hole_size()
#
# Write the  element.
#
sub _write_hole_size {

    my $self = shift;
    my $val  = $self->{_hole_size};

    my @attributes = ( 'val' => $val );

    $self->xml_empty_tag( 'c:holeSize', @attributes );
}

1;


__END__