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

with 'Graphics::Primitive::Driver';

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->{DATA} = "Mock: ".$comp->width."x".$comp->height;
}

sub _draw_ellipse { }

sub _draw_line { }

sub _draw_path { }

sub _draw_polygon { }

sub _draw_rectangle { }

sub _draw_textbox { }

sub _finish_page { }

sub _resize { }

sub get_textbox_layout { }

sub reset { }

sub write { }

sub data {
    my ($self) = @_;

    return $self->{DATA};
}

no Moose;
1;