The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package # hide from the CPAN
    DummyDriver;
use Moose;

with 'Graphics::Primitive::Driver';

has 'draw_component_called' => (
    is => 'rw',
    isa => 'Int',
    default => sub { 0 }
);

sub _do_fill { }

sub _do_stroke { }

sub _draw_arc { }

sub _draw_bezier { }

sub _draw_canvas { }

sub _draw_circle { }

sub _draw_component {
    my ($self, $comp) = @_;

    $self->draw_component_called(
        $self->draw_component_called + 1
    );
}

sub _draw_ellipse { }

sub _draw_line { }

sub _draw_path { }

sub _draw_polygon { }

sub _draw_rectangle { }

sub _draw_textbox { }

sub _finish_page { }

sub _resize { }

sub data { }

sub get_text_bounding_box { }

sub get_textbox_layout { }

sub reset { }

sub write { }

no Moose;
1;