view release on metacpan or  search on metacpan

lib/DBIx/Class/ResultSet/BitField.pm  view on Meta::CPAN

      }
    }
    
    
  }
  
  return $self->search({ $type => $query });
  
}

sub update {
  my ($self, $data, @rest) = @_;
  my $source = $self->result_source;
  my $row = $self->new_result({});
  while(my ($k, $value) = each %{$data || {}}) {
    my $info = $source->column_info($k);
    if($row->__is_bitfield($info) && ($value !~ /^\d+$/ || int($value) ne $value)) {
      if(ref $value eq 'ARRAY') {
        foreach my $bit (@{$value || []}) {
          $row->can($bit) ? $row->$bit(1) : croak qq(bitfield item '$bit' does not exist);
        }