Show
Ignore:
Timestamp:
04/03/08 18:48:51 (5 years ago)
Author:
zigorou
Message:

Fixed error handling.

Location:
lang/perl/DBIx-Class-Service/trunk
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/DBIx-Class-Service/trunk/Changes

    r8598 r8781  
    11Revision history for DBIx-Class-Service 
    22 
    3 0.01   Date/time 
    4        First version, released on an unsuspecting world. 
     30.01 2008-04-01 17:32:02 
     4  * First version 
    55 
     60.02 2008-04-03 18:46 
     7  * Fixed error handling. 
     8 

  • lang/perl/DBIx-Class-Service/trunk/lib/DBIx/Class/Service.pm

    r8598 r8781  
    1313=head1 VERSION 
    1414 
    15 version 0.01 
     15version 0.02 
    1616 
    1717=cut 
    1818 
    19 our $VERSION = '0.01'; 
     19our $VERSION = '0.02'; 
    2020 
    2121=head1 SYNOPSIS 

  • lang/perl/DBIx-Class-Service/trunk/lib/DBIx/Class/ServiceManager.pm

    r8598 r8781  
    1717=head1 VERSION 
    1818 
    19 version 0.01 
    20  
    21 =cut 
    22  
    23 our $VERSION = '0.01'; 
     19version 0.02 
     20 
     21=cut 
     22 
     23our $VERSION = '0.02'; 
    2424 
    2525=head1 SYNOPSIS 
    … …  
    189189                        @ret = $proto->service_class->$method($schema, @args) || (); 
    190190                    }; 
    191                     if ($@) { 
     191                    if (my $exception = $@) { 
    192192                        $schema->txn_rollback; 
    193                         croak($@); 
     193                        croak($exception); 
    194194                    } 
    195195                    $schema->txn_commit; 

  • lang/perl/DBIx-Class-Service/trunk/lib/DBIx/Class/ServiceProxy.pm

    r8598 r8781  
    1515=head1 VERSION 
    1616 
    17 version 0.01 
     17version 0.02 
    1818 
    1919=cut 
    2020 
    21 our $VERSION = '0.01'; 
     21our $VERSION = '0.02'; 
    2222 
    2323=head1 SYNOPSIS