package # hide from the CPAN TestApp::Driver::Mock2; use Moose; with 'Graphics::Primitive::Driver'; has 'foobar' => ( is => 'rw', isa => 'Str' ); 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} = "Mock2: (".$self->foobar.") ".$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;