… | |
… | |
547 | reset_signals; |
547 | reset_signals; |
548 | &$cb |
548 | &$cb |
549 | }, @args; |
549 | }, @args; |
550 | |
550 | |
551 | wantarray ? @res : $res[-1] |
551 | wantarray ? @res : $res[-1] |
|
|
552 | } |
|
|
553 | |
|
|
554 | =item $coin = coin_from_name $name |
|
|
555 | |
|
|
556 | =cut |
|
|
557 | |
|
|
558 | our %coin_alias = ( |
|
|
559 | "silver" => "silvercoin", |
|
|
560 | "silvercoin" => "silvercoin", |
|
|
561 | "silvercoins" => "silvercoin", |
|
|
562 | "gold" => "goldcoin", |
|
|
563 | "goldcoin" => "goldcoin", |
|
|
564 | "goldcoins" => "goldcoin", |
|
|
565 | "platinum" => "platinacoin", |
|
|
566 | "platinumcoin" => "platinacoin", |
|
|
567 | "platinumcoins" => "platinacoin", |
|
|
568 | "platina" => "platinacoin", |
|
|
569 | "platinacoin" => "platinacoin", |
|
|
570 | "platinacoins" => "platinacoin", |
|
|
571 | "royalty" => "royalty", |
|
|
572 | "royalties" => "royalty", |
|
|
573 | ); |
|
|
574 | |
|
|
575 | sub coin_from_name($) { |
|
|
576 | $coin_alias{$_[0]} |
|
|
577 | ? cf::arch::find $coin_alias{$_[0]} |
|
|
578 | : undef |
552 | } |
579 | } |
553 | |
580 | |
554 | =item $value = cf::db_get $family => $key |
581 | =item $value = cf::db_get $family => $key |
555 | |
582 | |
556 | Returns a single value from the environment database. |
583 | Returns a single value from the environment database. |
… | |
… | |
2349 | ? normalise $_ |
2376 | ? normalise $_ |
2350 | : () |
2377 | : () |
2351 | } @{ aio_readdir $UNIQUEDIR or [] } |
2378 | } @{ aio_readdir $UNIQUEDIR or [] } |
2352 | ] |
2379 | ] |
2353 | } |
2380 | } |
2354 | |
|
|
2355 | package cf; |
|
|
2356 | |
2381 | |
2357 | =back |
2382 | =back |
2358 | |
2383 | |
2359 | =head3 cf::object |
2384 | =head3 cf::object |
2360 | |
2385 | |