AffinityStub.pm 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. # ex:ts=8 sw=4:
  2. # $OpenBSD: AffinityStub.pm,v 1.1 2013/10/13 18:23:35 espie Exp $
  3. #
  4. # Copyright (c) 2012-2013 Marc Espie <espie@openbsd.org>
  5. #
  6. # Permission to use, copy, modify, and distribute this software for any
  7. # purpose with or without fee is hereby granted, provided that the above
  8. # copyright notice and this permission notice appear in all copies.
  9. #
  10. # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  11. # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  12. # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  13. # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  14. # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  15. # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  16. # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  17. use strict;
  18. use warnings;
  19. # single-host version of affinity, doesn't do much
  20. package DPB::AffinityStub;
  21. use File::Path;
  22. use DPB::PkgPath;
  23. sub new
  24. {
  25. my ($class, $state, $dir) = @_;
  26. bless {}, $class;
  27. }
  28. sub start
  29. {
  30. }
  31. sub unmark
  32. {
  33. }
  34. sub finished
  35. {
  36. }
  37. sub retrieve_existing_markers
  38. {
  39. }
  40. sub simplifies_to
  41. {
  42. }
  43. sub sorted
  44. {
  45. my ($self, $queue, $core) = @_;
  46. return $queue->sorted($core);
  47. }
  48. sub has_in_queue
  49. {
  50. }
  51. 1;