ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/Jeweler.pm
(Generate patch)

Comparing deliantra/server/ext/Jeweler.pm (file contents):
Revision 1.35 by root, Thu Apr 29 07:32:34 2010 UTC vs.
Revision 1.36 by root, Tue May 4 22:49:21 2010 UTC

249} 249}
250 250
251 251
252package Jeweler::CauldronHandler; 252package Jeweler::CauldronHandler;
253 253
254use strict; 254use common::sense;
255 255
256=head2 CauldronHandler 256=head2 CauldronHandler
257 257
258The Jeweler::CauldronHandler package, that helps you with handling the 258The Jeweler::CauldronHandler package, that helps you with handling the
259cauldron stuff. Can also be used for other skills. 259cauldron stuff. Can also be used for other skills.
367=back 367=back
368 368
369=cut 369=cut
370 370
371package Jeweler::Ingredients; 371package Jeweler::Ingredients;
372
373use common::sense;
374
372use Storable qw/dclone/; 375use Storable qw/dclone/;
373use strict;
374 376
375=head2 Ingredients 377=head2 Ingredients
376 378
377This class handles the ingredients. 379This class handles the ingredients.
378 380
624 } 626 }
625 } 627 }
626} 628}
627 629
628package Jeweler::Object; 630package Jeweler::Object;
629use strict; 631
632use common::sense;
630use POSIX; 633use POSIX;
631use List::Util qw/max min sum/; 634use List::Util qw/max min sum/;
632 635
633sub new { 636sub new {
634 my ($class, %arg) = @_; 637 my ($class, %arg) = @_;
1106 $cost->{gem} += ceil $sumvalue * $stat_split->[4] / max 1, $diarch->value; 1109 $cost->{gem} += ceil $sumvalue * $stat_split->[4] / max 1, $diarch->value;
1107} 1110}
1108 1111
1109package Jeweler::Util; 1112package Jeweler::Util;
1110 1113
1111use strict; 1114use common::sense;
1112 1115
1113=head2 Util 1116=head2 Util
1114 1117
1115Some utility functions for the Jeweler skill. 1118Some utility functions for the Jeweler skill.
1116 1119

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines