=cut
sub category {
my ( $self ) = @_;
my $category = $self->_result->categorycode;
return Koha::Patron::Category->_new_from_dbic( $category );
}
=head3 delete
$patron->delete
my $id = $patron->borrowernumber;
my $record = $patron->unblessed;
$record->{_id} = $id;
$record->{category_type} = $patron->category->category_type;
push @id_buffer, $id;
push @commit_buffer, $record;
-