File Coverage

blib/lib/Wx/Perl/ListView/SimpleModel.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	25	48.0

package Wx::Perl::ListView::SimpleModel;

=head1 NAME

Wx::Perl::ListView::SimpleModel - virtual list control simple model class

=head1 DESCRIPTION

A simple model class for C.

=head1 METHODS

=cut

use strict;
use base qw(Wx::Perl::ListView::Model);

=head2 new

  my $model = Wx::Perl::ListView::SimpleModel->new( $data );

Where data has the form:

  [ [ $item, $item, $item, ... ],
    [ $item, $item, $item, ... ],
    [ $item, $item, $item, ... ],
    ]

and each item is a valid return value for C.

=cut

sub new {
    my( $class, $data ) = @_;
    my $self = bless { data => $data }, $class;

    return $self;
}

sub get_item {
    my( $self, $row, $column ) = @_;

    return $self->data->[$row][$column];
}

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

    return scalar @{$self->data};
}

=head2 data

  my $data = $self->data;

Accessor for the model data.

=cut

sub data { $_[0]->{data} }

1;