Foodloop-Server/lib/Pear/LocalLoop/Plugin/Currency.pm

package Pear::LocalLoop::Plugin::Currency;
use Mojo::Base 'Mojolicious::Plugin';

sub register {
    my ( $plugin, $app, $cong ) = @_;

    $app->helper(
        parse_currency => sub {
            my ( $c, $currency_string ) = @_;
            my $value;
            if ( $currency_string =~ /^£([\d.]+)/ ) {
                $value = $1 * 1;
            }
            elsif ( $currency_string =~ /^([\d.]+)/ ) {
                $value = $1 * 1;
            }
            return $value;
        }
    );

    $app->helper(
        format_currency_from_db => sub {
            my ( $c, $value ) = @_;
            return sprintf( '£%.2f', $value / 100000 );
        }
    );
}

1;