=head3 new_from_api

    my $object = Koha::Object->new_from_api;

    my $object = Koha::Object->new_from_api( $attrs );

Creates a new object, mapping the API attribute names to the ones on the DB schema.

=cut

sub new_from_api {

    my ( $class, $params ) = @_;

    my $self = $class->new;

    return $self->set_from_api( $params );

}

=head3 set_from_api

    my $object = Koha::Object->new(...);

    $object->set_from_api( $attrs )

Sets the object's attributes mapping API attribute names to the ones on the DB schema.

=cut

sub set_from_api {

    my ( $self, $from_api_params ) = @_;

    my $from_api_mapping = $self->from_api_mapping;

    my $params;

    while (my ($key, $value) = each %{ $from_api_params } ) {

        if ( exists $from_api_mapping->{$key} ) {

            $params->{$from_api_mapping->{$key}} = $value;

        }

        else {

            $params->{$key} = $value;

        }

    }

    return $self->set( $params );

}